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UIT DE FEDERATIE 





ATOM NIEUWS 


Bestuur: 
Voorzitter: 

N. Stad 
Plataanweg 47 
1544 PB Zaandijk 
Tel. 975-2860808 


Clubwinkel: 


UIT DE FEDERATIE 


Secretaris: 

N. Schoone 
Sluispad 55-B 

152t EZ Wormerveer 
Tel. 075-2864624 


Hard-ware cie.t 


P. Ehrlich 
Plataanweg 47 Roostenlaan 266 
1544 PB Zaandijk 5644 BS Eindhoven 
Tel, 875 - 280808 Tel. 248 - 114185 


N. Stad 


Contributie 19851 fl. &2,00 
Leden Buitenland: fl. 75,09 


Giro 5244295 Bank 52.84.69,810 
Beide t.n.v. Penningmeester Atom Computerctub 
Nuenen 


Redaktie Atom Nieuws: 
Joop Ballijns 

Harry de Ruiter 

Ed- Schijf 

Evert van Schothorst 
Jaap van de Veen 
Gerhard Visser 

Wibo Visser 


Ledenadministratip: Datasheets: 
5. van Leeuwen B. Akkermans 
Konpasstraat 32 Wikke 1 


1975 PX IJsselmuiden 1273 BR Huizen 
Tel, 22558 — 22455 Tel. 82152 — 68294 


Uiterste datur inlevering copy: 
nr. 7/B 8 - 11 - 1985 


DE CLUB-WINKEL: 
Beheugenkaart; 16 kByte extra in de ATOM 


Penningmeester: 
Th. van Kempen 
Het Puyven 71 

5672 RB Nuenen 
Tel. 040-8546210 


Redaktie Atom Nieuws: 
H. de Ruiter 
Polarisstraat 25 
8583 AC Emmeloord 


Redaktieadres: 
Postbus 4375 
8081 BJ Zwolle 


Drukwerkarchief: 
F‚ Monsanto 

C, Kohlerstraat 97 
7558 VC Hengelo 


t1. 40,20 


Schakelkaart; meerdere EPROM's op Axxx (incl. 74LS133) t1. 59,08 


Programnerkaart; zelf programmeren van EPROM's 
Minischakelkaart 


$1. 21,09 
fl, 16,09 


Herdruk ACORN NIEUWS 1982; 97 pag: wetenswaardigheden fl. 6,88 


Jaargang 1985; totaal ruim 458 pag. 
Jaargang 1984; totaal ruin 658 pag. 


ATOM-WARE deel 1; machinetaal op de ATOM, 98 pag. 


41. 30,00 
fl. 35,08 
41. 6,08 


ATOM-WARE deel 2; het diskdrive operatingsystem, 68 pag. fl, 5,03 
ATOM-WARE deel 3; het monitor operating system, 88 pag. fl. 5,08 


Levering: 


Via uw regionale penningmeester of rechtstreeks bij Atom Computerclub te Nuenen, 


uitsluitend na voorafgaande 
portokosten). 


betaling (vermeerderd met fl. 4,02 voor 


indien u 14 dagen na afschrijving van uw bank- of girorekening nog niets hebt 


ontvangen, informeer dan bij de clubwinkel. 
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pag 2 uit de federatie 
pag 3 inhoud 
pag 4 van de redaktie 
pag 5 van de voorzitter 
pag 6 van de penningmeester 
pag 7 schi jvenbestand 
pag 8 - 15 astrologie 
pag 13 bladvulling 
pag 14 — 15 van de hardware — commissie 
of: hoe moet uw ATOM eruit zien 
pag 16 stapelen van geheugen 
pag 17 problemen bij stapelen van geheugen 
pag 18 — 28 ombouw schakelkaart 
pag 21 — 25 alles over cassettes & recorders 
pag 25 mjcos & programmer 
pag 26 dynamische ramkaart 
pag 27 ombouw programmer 
pag 28 — 31 LOGIKA, deel 1 van een cursus 
pag 31 snelle goto’'s 


pag 32 =— 44 lagische simulator 

pag 45 — 56 handleiding wordpack + ED64 
(eventueel uitneembaar) 

pag 57 — 61 wordpack/ED64-verander ingen 

pag &2 — 63 macintosh 

pag 64 — 68 animatie 

pag &9 — 74 titratie 

pag 75 — 76 blackjack / drawpoker 

pag 77 -— 80 big benny 

pag 81 GRC salfaa 

pag 82 RC gags 

pag 85 — 85 prcode statement 

pag 86 — 87 line functie 

pag 88 — 89 extra label: £ 

pag 90 — 92 meerkoloms disas 

pag 93 - 94 acorn 

pag 95 — 97 grafische letters 


pag 97 popcorn 

pag 98 Ze processor 
met een oproep 

pag 99 square 

pag 108 adressen 


ATOM NIEUWS is een uitgave van de fed. atom computerclubs n/b 
en verschijnt & — 8 keer per jaar. 


De redaktie gaat er vanuit dat de ingezonden copy gemaakt is door 
de inzender tenzij uitdrukkelijk anders is vermeld. 

De aansprakelijkheid voor auteursrechten voor ingezonden copy 
ligt dan ook votledig bij de inzender. 
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Van de redaktie 


Zo, het eerste officiele woord van de nieuwe redaktie staat 
geschreven. Voor de redaktie betekent dit dat het jachtseizoen 
geopend is, Op U wel te verstaan en vooral op diegenen die een 
ATOM hebben en er iets mee (willen) doen: gebruikers dus. 

U kent zeker het spreekwoord "wat de boer niet kent dat (vmeet 
hij niet”. 


Even terzijde om heftige discussies te voorkomen. 

Tegenwoordig schijnen boeren iets samen te doen met computer- 
fabrikanten (die boeren wel of niet goed) en dus bestaat de 
mogelijkheid veel lof te oogsten. 

Ten tweede het woord eet cq. vreet. Wij geven de voorkeur aan het 
woord eet omdat het woord vreet impliceert dat de moderne boer 
zich beweegt op het niveau van het ouderwetse varken. Nou, wij 
weten wel beter! By the way, hoe zou die boer anders het voer in 
de trog van het varken krijgen? (nivo, he). 


Om nu de draad van het oorspronkelijke verhaal weer op te pakken 
de vraag of u wel eens met een bovengenoemd spreekwoordelijk 
figuur bent wezen chinezen? 

Ja zegt u, en hij bestelde een portie nasi. 

Dat zal lekker gesmaakt hebben. Wat zegt u, niet??? 

U zegt dat alles wat het heerschap niet bekend voorkwam rond z'n 
bord gedeponeerd werd, zodat het al gauw leek alsof hij van de 
tafel zat te eten in plaats van z'n bord. 

Nou uh; un .…... smakelijke voortzetting dan. 

We weten allemaal dat deze maaltijd snel beeindigd zal zijn. 
Bovenstaande heeft, zoals u begrepen hebt, niet de bedoeling 
boeren en chinezen in een kwaad daglicht te stellen. Integendeel. 
De bedoeling is u te laten inzien dat eenvoud van belang is maar 
dat ook ingewikkelder zaken hum plaats moeten hebben. Zo kamt 
eenieder aan z'n trekken, 

De taak van de redaktie is het een en ander op de juiste wijze 
samen te voegen en de lawine van artikelen die we verwachten op 
de juiste wijze te rangschikken. 


Dus, hebt u (nog) iets liggen, een leuk programma, iedee of 
ontwerp, stuur het ons toet t tt 
Dok voor klachten, kopstoten, rellen schoppen, wurgingen en 


schouderklopjes kunt u bij ons terecht. Stuur uw bijdrage naar: 
Redaktie Atom Nieuws 

Postbus 1375 

8601 BJ Zwolle 


Met vriendelijke groet, 


het retd)aktie-team. 


P.S. 
Onze Don Atom van de redaktie vroeg zich af of er ook vrouwen 
binnen de federatie actief zijn. Zo ja, laat eens wat eh, eh van 


je zien. 
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VAN DE VOORZITTER 


Met ingang van dit nummer van ATOM NIEUWS hebben we een nieuwe 
redaktie, 

Henk Reinders zag zich gedwongen om te stoppen met het 
vervaardigen van ons clubbjad. 

Via deze weg wil ik hem bedanken voor al het werk dat hij de 
afgelopen twee jaar voor ons clubblad heeft gedaan, door hem is 
het uiterlijk tot een hoog peil gegroeid. 


HENK BEDANKT VOOR JE WERK. 


Tevens wil ik de nieuwe redaktie veel sterkte en plezier in het 
werk toewensen. Maar zonder huip van de leden en de regio's komt 
een clubblad niet vol, dus een ieder die copy heeft roep ik op om 
dit of via hun regio of direkt aan de redaktie te zenden. 

Copy kan op de volgende manieren bij de redaktie komen ; 


1) per schijf {40 tracks 10 sectoren enkelzijdig) 
2) per cassette ( het liefst 300 baud) 


3) op papier ( A4-formaat, tekst afmeting 17 # 25 cm, en goed 
zwart een nieuw lint gebruiken.) 


Tekstfiles het liefst met de WORD-PACK gemaakt, of een basic 
programma met direkt achter de regelnummers de tekst. 

Maar absoluut geen tormatgegevens in de tekstfile, want die zijn 
vaar elke printer anders. 


Als een ieder zich gan deze drie regels houdt, dan is het voor de 
redaktie eenvoudig om copy te verwerken, en ik vind ook dat als 
er niet aan deze drie regels wordt voldaan, dat de redaktie het 
recht heeft om copy aan de kant te leggen. 

De afmetingen 17 # 25 cm komt overeen met 59 regels van 65 
tekens, 

Laten we ons hier aljemaal aan houden, 

Dit stukje ts volgens regel drie ingeleverd en dat levert in het 
geheel geen problemen op. 


Dan zou ik als laatste willen zeggen 
Laten we het gezellig houden, want we zijn tenslotte een 
hobbyclub. 


Nico Stad 
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BEEINDIGEN VAN HET LIDMAATSCHAP. 


Van de regionale statuten luidt artikel 6,53 iste alinea: 
Opzegging van het lidmaatschap door het lid of door de 
vereniging kan slechts geschieden tegen het einde van een 
verenigingsjaar en met inachtneming van een opzegtermijn van 
vier weken. 


Indien u geen lid meer wenst te blijven, verzoek ik u dit 
SCHRIFTELIJK te melden aan: 
Atom Computerclub, Het Puyven 71, 5672 RB Nuenen. 


CONTRIBUTIEBETALING 1986. 


Ingesloten treft u de acceptgiro aan voor de 
contributiebetaling 1986. 

Hierop zijn uw regio, lidmaatschapsnummer, naam en adres 
voorbedrukt. 

Indien dit niet juist is verzoek ik u veranderingen DUIDELIJK 
EN IN BLOKLETTERS op de achterzijde te vermelden. 


De contributie moet voor 15 december a.s. op de girorekening 
van de federatie bijgeschreven zijn. Dit in verband met tijdige 
verzending van het eerste nummer van Atom Nieuws van 1986 door 
de drukker. 


Indien u na 18 december betaalt, dan kunt,u GEEN GEBRUIK MEER 
MAKEN VAN DE ACCEPT-GIRO maar moet u fl. 65,= naar de giro- of 


bankrekening van de federatie overmaken, om net (de) reeds 
verschenen nummer(s) nagezonden te krijgen. 


WACHT DUS NIET TE LANG EN MAAK DE CONTRIBUTIE METEEN OVER. 


De penningmeester. 
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UITLEG BIJ INHOUD SCHIJVEN PROGRAMMA. 





Dit progamma heb ik gesitueerd in het battery-backup systeem van 
de geheugenkaart tussen #4020 en #6800. Ik heb hier ruimte voor 
17 schijven. Als je meer schijven hebt,, dan kan je natuurlijk 
ook op een andere geheugenplaats starten. Je moet dan wel het 
programma enigszins aaanpassen. Wanneer je op #28300 start dan is 
er plaats voor 29 schijven. Je moet dan in regel 148 veranderen 
P=#2888 en in regel 560 wordt #HA0DE verandert in #2800. 


Als men het programma voor het eerst start dan moet men eerst ?U 
op O zetten. Dit doet men door voor het runnen eerst in te tikken 
PRASFF=0 ( of 7#20FF=0). 

Na het runnen krijgt men het menu te zien. Om de schijven in het 
bestand te krijgen moet men nu stuk voor stuk (op volgnummer) de 
schijven in de drive doen en dan op de T(oevoegen) drukken, 
waarna het programma vraagt “NIEUWE SCHIJF J/N" bij °"J" komt de 
inhoud van de schijf op het schermen in het geheugen. Een 
volgende schijf weer beginnen met *T" etc. 

Men kan op drie manieren de inhoud van de schijven bekijken. le 
met Next), dan wordt de volgende schijf bekeken. Ze met 
P{revius), dan wordt de inhoud van de vorige schijf teruggehaald. 
3e tenslotte, rechtstreeks het nummer van de schijf die men wil 
zien, intoetsen, altijd met twee cijfers, dus b.v. 87,24 of O1 
‘zonder return). 

Is de inhoud van een schijf verandert en wil men deze schijf 
aanpassen dan drukt men op de V(erbeteren), als de betreffende 
schijf-inhoud op het scherm staat. Het programma vraagt dan weer 
“NIEUWE SCHIJF J/N" en werkt verder identiek aan T(oevoegen). 


Heeft u alles gezien en eventueel het een en ander gewijzigd en u 
Wil uit dit programma druk dan op Etinde). U moet dan wel zorgen 
dat de schijf waar dit inhoud-programma op staat, in de drive 
zit. Dit is nodig omdat, als er schijven gewijzigd of toegevoegd 
zijn, het programma zich zelf saved met de aangepaste 
schijven-inhaud, waarbij het oude bestand overschreven wordt 


Met viendelijke groeten, 


Bram Thijsse 
Albert Verweijstraat 20 
2406 VX Alpnen a/d Rijn 
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ASTROLOGIE 





Zoals U reeds begrepen zult hebben gaat dit stukje over 
astrologie en het maken van horoscopen. De astrologie mag zich 
verheugen op een eeuwenlange belangstelling. Reeds in de tijd van 
de farao's kwamen in Egypte astrologen voor. Deze pretenteerden 
aan de hamd van de stand van de planeten gunstige of ongunstige 
tijdingen te kunnen voorspellen. Deze astrologen hadden niet de 
beschikking over de moderne hulpmiddelen zoals wij deze kennen. 
Toch wisten ze vrij nauwkeurig de stand van de pianeten te 
berekenen. Door de eeuwen heen js er altijd belangstelling voor 
astrologie geweest, maar de laatste jaren is de belangstelling 
voor astrologie sterk toegenomen. De meesten onder U zuilen zich 
al dan niet serieus met astrologie hebben bezig gehouden. 
Iedereen zal wel eens zijn horoscoop lezen zoals deze vaak in 
dag- en weekbladen wordt gepubliceerd. Diegenen die al eens aan 
astrologie en het maken van horoscopen hebben gedaan, weten wat 
een ontstellende hoeveelheid rekenwerk er aan te pas komt, Met 
navolgende programma is een horoscoopberekeningsprogramma. Het 
neemt al het vervelende rekenwerk uit handen en maakt tot slot 
ook nog eens de horoscooptekening. 

Het programma is voor een gedeeìte een vertaling van een 
horoscoopprogramma, welke het computertijdschrift “Computerplus” 
in drie afleveringen publiceerde. Het programma was 
oorspronkelijk bedoeld voor de Commodore 64. Bepaalde onderdelen 
van het programma moesten dan ook op geheel andere wijze opnieuw 
geprogrammeerd worden. 


Over tijdstippen in een horoscoop valt heel wat te zeggen. Alles 
staat of valt met de invoer van de juiste tijdstippen. Er zijn 
dan ook een aantal tijdsoorten. Een waarnemer stelt vast dat de 
zon op zijn hoogste punt staat. Het is dus ter plaatse 12 uur. Op 
dezelfde plaats 24 uur later is het dat weer. Dit is ware 
ZONNETIJD: in 24 uur wordt een volledige cirkel doorlopen (=15 
graden per uur). De ware zonnetijd verschilt dus van plaats tot 
plaats. Daarom zijn er: TIJDZONES. De nuìmeridiaan (die loopt 
door Greenwich) geeft de wereldtijd aan. Een gebied van 7 minuten 
en 38 seconden (7m3@s) aan beide kanten van de meridiaan heeft 
dezelfde tijd. 

Van 7m38s tot 22m53@s Oosterlengte is het ft uur later dan in de 
Greenwichzone (bv. Nederland). Maar meridianen en landsgrenzen 
vallen niet samen. Dat ìs ongemakkelijk. Daarom bestaan er 
STANDAARDTIJDEN. Heel West-Europa heeft de middelbare Europese 
tijd(=Greenwichtijd plus 1 uur). 

Het geboortetijdstip zoals dat geregistreerd wordt door de 
burgelijke stand is in MIDDELBARE PLAATSELIJKE tijd (iemand 
“klokt” bij de bevalling op een horloge dat de tijd aangeeft die 
in die tijdzone van toepassing is). Meestal is dat dus middelbare 
Europese tijd. 


Middelbare plaatselijke tijd is gebaseerd op een gemiddelde; dit 
gemiddelde heeft twee correcties nodig in verband met afwijkingen 
die ontstaan door draaiingen van zon en aarde, Daarom voeren we 
het begrip STERRETIJD in. 

De sterretijd wordt ten opzichte van een vast hemelobject (nul 
graden Ram = lentepunt) gemeten. Om het geboortetijdstip in 
sterretijd uit te drukken doen we het volgende: eerst bepalen we 
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de sterretijd op het moment dat het pul uur middelbare 
Greenwichtijd is op de geboortedag. Vervolgens vermenigvuldigen 
we de middelbare plaatselijke tíjd van het tijdstip van de 
geboorte (decimaaì genoteerd) met het getal 1.00273791 (dit is de 
correctie voor de bewegingen van aarde en zon). Tel de uitkomsten 
bij elkaar op. Dit levert het geboortetijdstip tn sterretijd 
uitgedrukt. deze sterretijd hebben we later nodig bij het 


berekenen van de huizen. De Greenwichtijd is nodig voor de 
berekening van de stand van de planeten. 

Van belang voor het berekenen van horoscopen zijn de 
invoergegevens. In dit programma moeten achtereenvolgens 
ingevoerd worden: 

NAAM -— van de betreffende persoon 

GEBOORTEDATUM = moet worden ingevoerd in cijfers. Het jaartal 


moet voluit. Tussen de cijfers moeten punten. 
GEBOORTETIJDSTIP- is de werkelijke tijd van de geboorte (Kan 
tegen betaling worden opgevraagd bij de Burgelijke Stand) 


ZOMERTIJD J/N — hier moet met Jta) of Nee) op worden 
geantwoord. 

TIJDZONE = hier moet een getal worden ingevuld gelegen 
tussen -12 en +12, Voor Nederiand geld +1, In het algemeen geldt 
dat plaatsen met een oosterlengte “+" ervoor krijgen en plaatsen 
met een westerlengte een *-" ervoor. 

GEBOORTEPLAATS ” hier moet de plaats ingevuld worden. Van de 
plaatsen in onderstaande tabel zijn de lengte- en breedtegraden 


al bekend in het programma, dat betekent dat men alteen de plaats 
hoeft in te vullen en geen antwoord meer hoeft te geven op welke 
lengte- en breedtegraad de plaats is gelegen. Als U een 
plaatsnaam toe wilt voegen, moet U dit doen in de dataregels aan 
het eind van het programma, voor de laatste dataregel. Achter de 
plaatsnaam moeten dan achtereenvolgens de lengtegraden en de 
breedtegraden worden gezet. 


LENGTEGRAAD = hier moet de lengtegraad in de vorm GG.MM 
{Graden.Minuten) worden ingevuld (tussen @ en 360 graden) . 
BREEDTEGRAAD = hier moet de breedtegraad in de vorm GG.MM 


‘Graden,Minuten) worden ingevuld (zuiderbreedte moet negatief 
worden ingevuld). 
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Hieronder volgen enkele plaatsen in Nederland, met daarachter de 
breedtegraad en lengtegraad. 


Noorder -— Ooster 

breedte lengte 
Alkmaar 52.37 ga. 45” 
Amsterdam 52.21’ 24.55’ 
Assen 52.29’ 06. 54° 
Breda 51.34" 24.48” 
Eindhoven 51.26 85.30’ 
Enschede 52.12 26.53’ 
Den Haag 52.05’ @4. 18’ 
Groningen 55.15 D6. 33 
Haar lem 52.22’ 24.358" 
Den Bosch 51.40 85.20 
Hoorn 52.38" 05.04 
Leeuwarden 53.12° 05.47 
Maastricht 58.51’ 85.41 
Middelburg 51.50 03.37 
Roosendaal 51.32 24.28’ 
Rotterdam 51.55 84,50’ 
Tilburg 51.33" 85.07: 
Utrecht 52.05 gs.a8” 
Wageningen 51.58’ 5.40 
Zwolle 52.58’ ge. ns” 


Aan de hand van de lengte- en breedtegraden van deze plaatsen 
kunt U zelf ongeveer de coordinaten van uw eigen geboorteplaats 
bepalen. 

We zullen de werking van het programma aan de hand van een 
voorbeeld verduidelijken. 

VOORBEELD: Iemand is geboren op 27 september 1961 te 85.57 uur. 
De geboorteplaats is Amsterdam. Zoals U net hebt kunnen lezen is 
de breedtegraad voor Amsterdam 52.21 en de lengtegraad 04.55. 
Op de vraag "TIJDZONE" vult U +1 in. Op de vraag “PRINTER J/N" 
dient U met J of N te antwoorden. Bij J dient de printer wel aan 
te staan, anders loopt het programma vast. Vervolgens worden de 
ingevoerde gegevens geprint alsmede de sterretijd. Daarna duurt 
het ongeveer 20 seconden voordat de Ascendant en MC geprint 
worden. Dat ziet er als volgt uit: 

ASCENDANT: 26:27 MAAGD 

MC : 25:20 TWEELINGEN 





Hierna volgen de huizen, U zult zien dat HUIS t gelijk is aan de 
ascendant en dat huis 18 gelijk is aan de MC. Van de huizen 
worden alleen de huizen 18, 11, 12, Ì, 2 en $ berekend. De andere 
zes huizen zijn tegenover liggende huizen {in een cirkel gezien) 
zodat deze 180 graden of zes tekens (elk teken is 30 graden) van 
elkaar verwijderd liggen. Er zijn ongeveer 20 manieren om huizen 
te berekenen. Wij hebben gekozen voor de puur wiskundige manier 
van berekenen en dat is die van Placidus. Deze heeft alleen als 
nadeeì dat er dicht bij de beide polen afwijkingen kunnen 
ontstaan. Voor het gegeven voorbeeld zien de huizen er als volgt 
uit* 


As TROULOGIE 
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{PLAEIDUS) 








HUIS 1@ 25:28 TWEELINGEN 
HUIS 11 @1:54 LEEUW 

HUIS 12 02:20 MAAGD 

HUIS 1 26:27 MAAGD 

HUIS 2 19:42 WEEGSCHAAL 
HUIS 35 19:18 SCHORPIOEN 
HUIS A4 25:28 BOOGSCHUTTER 
HUIS 5 : 81:54 WATERMAN 
HUIS 6 : 02:20 VISSEN 
HUIS 7 1 26:27 VISSEN 
RUIS 8 19:42 RAM 

HUIS © 19:18 STIER 





Hierna wordt de stand van de planeten berekend. 








worden gemakshalve tot de planeten gerekend. 
gegeven voorbeeld zijn: 
PLANEET POSITIE 
ZON 1 B5:51 WEEGSCHAAL 
MERCURIUS: 29:42 WEEGSCHAAL 
VENUS : 04:20 MAAGD 

MARS : 26:53 WEEGSCHAAL 
JUPITER : 27:18 STEENBOK 
SATURNUS : 25:19R STEENBOK 
URANUS * 28:26 LEEUW 
NEPTUNUS £ 89:41 SCHORPIOEN 
PLUTO : 45 MAAGD 
KNOOP 1 25:05 LEEUW 

MAAN : 18:89 STIER 


Met KNOOP wordt hier de klimmende 


De Zon en de Maan 


De standen voor het 


knoop van de maanbaan bedoeld. 


Indien een planeet Retrograad of Directgaand is wordt dat 
aangegeven met een “RY of een “D" achter de cijfercombinatie. 
Vervolgens worden de ASPECTEN van de planeten berekend. De 
aspecten zijn de hoeken tussen 2 planeten in de dierenriem. Een 
hoek van @ graden (de planeten liggen dus op een lijn ten 
opzichte van de waarnemer) heet een conjuntie, Hoeken van 68, 908, 
120 en 180 graden heten respectievelijk sextielen, kwadraten (ot 


vierkanten), driehoeken en opposities. 
is hier ook nog mogelijk. Zo heet een hoek 
halfsextiel, een hoek 
135 graden een anderhalfkwadraat. 
zekere nauwkeurigheid bepaald 
dierenriemtekening. Een bepaalde marge 

wordt is hierbij toegestaan. Naarmate de 
het aantal interpretatiemogelijkheden van de 
Door de desbetreffende DATA regels in het 


en 


kan men ook de Orb veranderen. Samengevat zijn 
aspecten mogelijk: 

CON junctie a graden 

HalfkKWadraat 45 graden 

SEXtiel &@ graden 

72 72 graden 

KWAdraat 90 graden 

DRIehoek 120 graden 

AnderhalfkWa 155 graden 


OPPositie 182 graden 


Een verdere onderverdeling 
van 30 
van 45 graden een halfkwadraat 
Al deze hoeken 
geplaatst in 
(speling) 
orb kleiner 
horoscoop kleiner. 
programma te wijzigen 


graden een 
en een van 
worden met een 
een 
die Orb genaamd 
is zijn ook 


de volgende 
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Als U de printer heeft aanstaan dan krijgt U een zogenaamde 
aspectentrap. Als U deze niet heeft of niet heeft ingeschakeld 
verschijnt er op het beeldscherm elk aspect dat er gemaakt wordt. 
De in het programma gegeven printroutine voor het maken van de 
aspectentrap is bedoeld voor de Seikosha GP 258X. Als U zo'n 
aspectentrap op uw printer wilt maken dan moet U de 
desbetreffende regels aanpassen. 

Probeert U ook eens de volgende voorbeelden: 

De geboorte van alledrie de voorbeelden is 1 juli 1979, 


1. geboorte te Amsterdam, kloktijd 14.85 uur 
zomertijd: ja, verschil van een uur 
positie: 52.21’ N.B.; 04.23 O.t. 
tijdzone: Middeleuropese Tijd, dat ís 1 uur verschil met 
Greenwich (namelijk de 15’ O.L. meridiaan) dus +1 


2. geboorte te New York, kloktijd 28.85 uur 
zomertijd: Ja, verschil van een uur 
positie: 40.45 N.B.; 73.57" W.Ls 
tijdzone: E.S.T., dat is 5 uur verschil met Greenwich 
(namelijk de 75’ W‚t. meridiaan) dus -5 


3. geboorte te Djakarta, kloktijd 19.85 uur 
zomertijd: nee 
positie 86.18' Z2.B. (=-06.10); 186.49’ O.L. (Java) 
tijdzone: sinds 1-1-1964 Standaard tijd van 185" 
O.L.-meridiaan. Verschil met Greenwich 7 uur. Dus +7 uur. 


U zult zien, dat de posities van de huizen tussen de voorbeelden 
aanmerkelijk zullen verschillen, maar dat de uitkomsten van de 
planetstanden van alle voorbeelden hetzelfde zullen zijn. Dit 
komt omdat de planeetstanden naar Greenwichtijd worden berekend. 
Alleen de maan zaì bij devoorbeelden steeds een andere plaats 
hebben, omdat die berekend wordt aan de hand van de plaats op 
aarde. Dit omdat de maan heel dicht bij de aarde staat, zodat je 
vanuit een andere plaats de maan in een andere richting ziet 
(natuurlijk zijn die verschillen heel erg klein). En in deze 
voorbeelden was de Greenwichtijd steeds dezelfde, terwijl de 
kloktijd aanzienlijk verschilden. De Greenwichtijd voor alle 
voorbeelden was 12.05 uur. 


Tot slot van het programma wordt de horoscooptekening gemaakt 
Dit gebeurt aan de hand van de berekende gegevens. 

Wie kunnen dit programma gebruiken, Wij zouden zeggen "IEDEREEN". 
Er is echter nogal wat geheugenruimte voor nodig. Het programma 
zelf loopt van #290® tot #S55A3 en inclusief dimensionering tot 
#5938). U heeft 2K arrays nodig. Deze lopen in het programma van 
#90 to #ADBD. Noodzakelijk is eveneens de P-CHARME, Tevens moet 
GABS kunnen worden gebruikt. (voor de tekening). Er moet namelijk 
2K worden gereserveerd voor “base” deze staat momenteel op #2000. 
Er wordt aan gewerkt om al de extra statements die nodig zijn 
voor dit programma in een box te stoppen en deze achter het 


programma te plaatsen. De statements worden dan herkend door de 
P-CHARME. Deze blijft dan noodzakelijk. 
Het programma zal naar het bandjesarchief gaan. Voor 


DISK-gebruikers zal er waarschijnlijk een apart programma komen 
waarop meer graphics voorkomen, 
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Als U dit hele verhaal gelezen hebt zult U denken wat moet ik met 
zo'n berg gegevens. Deze gegevens zijn slechts de basis voor het 
belangrijkste en tevens ook het moeilijkste in de astrologie: het 
duiden. Duiden houdt in dat er aan de gegevens een betekenis 
wordt gegeven. De gegevens die U nodig hebt voor dit duiden kunt 
U vinden in boeken die ìn bijna elke bibliotheek te vinden zijn. 
Het is beslist niet noodzakelijk dat U in astrologie gelooft, 
maar probeert U het eens. U zult zien dat de resuitaten in de 
meeste gevallen verbluffend zijn. Wij begrijpen dat dit verhaal 
niet helemaal volledig is, maar over dit onderwerp is zoveel te 
vertellen. Mocht U vragen hebben dan kunt U die gerust aan de 
auteurs stellen. Veel plezierige uurtjes toegewenst met dit 
programma. : 


Erwin van den Haak en Marcel van der Looy, Regio Noord-Holland 


Een programma voor ATOMISTEN die van water houden (deuterium ?7) 


18 PROGRAM BLADVULL ING 

20 REM (CC) HAMBURGERSOFT 

50 FUNCTION FNA(X,Y) ‚A 

4D KA=SGROXEXtYeV) 

58 A=XA 
(SIN(RAD(%A) #2) *200-AA) /5 





158 M=-512 

168 FOR Y=-1212 TO 912 STEP 20 
178 VECYHENACX, YI /2 

188 IF M<V THEN M=v; GOS, a 


190 NEXT Y 

208 NEXT X 

218 END 
220aPLOTIS, ((X/5) AX) , (LV/5) +AY) 
230 PLOT1S, ((-X/5) +4X) , C(V/S) +4Y) 


ZA RPR 
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Op de vergadering van 14 sept. j.l. is weer eens het begrip 
minimale Atom ter sprake gekomen en het wordt zo zoetjesaan tijd 
dat er van federatieve zijde bepaald wordt hoe een Atom er 
minimaal uit dient te zien om op een prettige manier mee te doen 
met het landelijke gebeuren. 

Het is nl. zo dat je niet tot in lengte van dagen kunt blijven 
terugvallen op de allerminimumste Atom met 1/2 k programma- 
ruimte. Aan de andere kant willen we ook niemand opjagen om zijn 
of haar Atom met alles wat ooit een keer is gepubliceerd uit te 
rusten. Ergens ligt natuurlijk een grens en die hebben we 
voorlopig op een naar onze mening zeer acceptabel en goed 
bereikbare plaats gelegd. 

Yoor de goede orde: 

WE KUNNEN EN WILLEN NIEMAND OP WELKE MANIER DAN OOK VERPLICHTEN 
TOT BEPAALDE HANDELINGEN EN/OF MODIFICATIES. 

We willen alleen een zgn. federatieve Atom definiëren waarmee de 
uitwisseling van programma's wat soepeler zal verlopen. Je hebt 
dan tenminste een redelijke basis waarop je kunt terugvallen. 
Elk programma dat op een federatieve Atom draait, behoeft wat 
dat betreft dan ook geen verdere uitleg. Worden er specifieke 
uitbreidingen verlangd (b.v. extra veel RAM of RAM op bijzondere 
locaties of speciale toolkits) dan kan dat in de beschrijving 
kort vermeld worden, 


Alors, de federatieve Atom bestaat uit de door Acorn geleverde 
minimumconfiguratie plus: 


al. RAM van #2800 totaan #3BFF. 

a2, graphics RAM van #8000 totaan #97FF, 

a3. een floating point (EP)ROM al of niet met driewegwissel. 
a4. een VIA (IC 1, 6522) met LINK 2 doorverbonden. 


a5. een 1200 baud routine. 


ad.l het RAM gebied #2800-#3BFF kan eenvoudig in de voetjes in 
de Atom geprikt worden, Het RAM gebied #3CO0-33FFF wordt 
gestapeld zoals beschreven in AcornNieuws '82 nr.3. eventueel 


ad.2 eenvoudig inprikken in Atom voetjes. 


ad.3 het driewegwissel is beschreven in AcornNieuws '83 nrs.l&2. 
Het wissel wordt niet "verplicht" gesteld, omdat velen een echte 
ROM hebben die niet te veranderen is. 


ad,4 eenvoudig inprikken en draadje leggen. 


ad.5 vrijwel aìle 1200 baud routines zijn uitwisselbaar. Ze zijn 
te vinden in diverse toolkits (Josbox, Program Power Toolkit, P- 
charme, Softtool,; Screenrom),; maar zijn ook beschikbaar als 
losse routines (Fastcos en Allcos (AcornNieuws '83 nr.l p.59)). 


VAN DE SARDWARE COMMISSIE ATGM NIEUWS PAG. 15 





Verder worden de volgende zaken zeer sterk aanbevolen: 
bl. RAM van #9800 totaan HOFFF. 
b2. RAM vanaf #4000 en dan liefst zoveel mogelijk. 


b3. joystickaansluiting. 


ad.l ook deze kunnen gestapeld worden. 
ad.2 spreekt voor zich, Portemonnee is belangrijkste factor. 


ad.3 volgens de clubstandaard. Zie AcornNieuws '82 nr.5. 


In een later stadium zullen we het ook nog hebben over printer, 
DOS, 80kolommen (dit soort zaken wordt voorlopig niet, wellicht 
zelfs nooit "gestandaardiseerd", want we willen niemand op 
kosten jagen. Deze items zullen worden behandeld in de trant 
van: ALS u een printer etc. heeft, DAN wordt u geacht deze als 
volgt aan te sluiten), systeemroutines, schakelbits, decoderin- 
gen etc. etc. 

Tot zover deze eerste aanzet. We beseffen dat het nauwelijks 
spectaculair is, maar het moest gewoon een keer gebeuren. Denk 
ook niet dat deze goede bedoelingen van hogerhand zonder meer 
vruchten zullen afwerpen. We zullen met z'n allen moeten 
coöpereren om e.e.a. te laten werken. Het is een samenspel van 
federatie, redactie EN de leden. 


namens de hardware commissie, Bram Poot 


P.S. Als service aan het legertje nieuwe leden van afgelopen 
jaar wordt elders in dit blad nogmaals beschreven hoe het 
zgn. stapelen van IC's in z'n werk gaat. Voor de overige 
verwijzingen kun je wellicht terecht bij je medeleden, 
drukwerkarchief en/of programma-archief van je regio. Als 
dat onverhoopt niet mocht lukken, kun je altijd nog de 
hardware commissie aanschrijven. 





No matter how definite a standard is, 


IBM can always redefine it. 
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Om de geheugenruimte van de computer te vergroten kunnen we een aantal RAM chips (2114) 
letterlijk, om elkaar stapelen. 

Ke kunner: zo nag 1K geheugen erbij plakken in het lage geheugen (#3C60 — #AFFP), en 2K in 
het hoge geheugen 96: HIFFF). 

We zetten de ene 2114 op de andere. Dan zitten de potjes van de bovensta al enigsinds 
‘klemmend’ over die van de onderste. let op de pennen 1, deze zitten boven elkaar! 

Ke solderen de pootjes van de bovenste nu vast op de onderste, alleen pootje & buigt 

u ietsje opzij. Dit is nl. de “chip select poot”, die naar een dekoder moet. 

U steekt nu de IC's 16 en 11, ieder voorzien van een bovenbuurman (vrouw) weer terug in de 
sockets. De twee pennen 8 verbindt u met elkaar, en met pen 7 van IC ó, 

Nu is het lage gedeelte klaar 

Met IC 32 en IC 33 doet U hetzelfde, alleen nu verbindt u de beide pootjes 8 met pen 7 van 
IC 3ê 

Tenslotte ook, met IC 34 en IC 35, en deze vrije pennen 8 aan pen 9 van IC 30. 








Nuheeft uer van #3C60 to! #4608, en van #958B tot HABBÒ geheugen bij gekregen. U bezit 
ny een atom met laag 6K, en hoog 8K geheugen. 
Vanwege de bouwwijze wordt deze uitbreidig “gestapeld geheugen” „-:vemd. 





Acorn Nieuws 1982, Bewerkt: R. van Drunen. 
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Kekodededeakakekeke hekel hoteki 
“PROBLEMEN BIJ GESTAPELD GEHEUGEN% 
Keane stehakeknktn kt tt Ed 


Overgenomen uit het computerclubblad Overijssel/gelderland 
Jrg.1 no. 1 


Heeft u in de computer zelf geheugen gestapeld? 

Dan is het verstandig om de chip selectie lijntjes van IC & 
(J4LS158), welke naar de gestapelde rams gaan, cok naar ICS 
(74ALS5B) te voeren. 

Zijn deze verbindingen niet aanwezig, dan kunnen er in 
samenhang met de schakeltkaart moeilijkheden ontstaan. 

Zo kon ik soms #3CO0 t/m HSFFF niet voor de teksteditor 
gebruiken. 


Licht hiervoor van ICS pin 1 uit het voetje en verbindt deze 
met een draadje met IC& pin 7. (Dit voor het geval er aileen 
van #5CO2D t/m #3FFF gestapeld is) Nu gaat het wel goed. 


Heeft U cok van #2029 t/m #23FF en van #2408 t/m #27FF 
gestapeld, dan zullen er nog weer een paar diodes en een 
weerstand bij moeten komen. 

Aan elk van de pootjes IC& pin 7 (i.p.v. het draadje van 
bovenstaande), IC& pin 14 en IC6& pin 15 komt een diode, met de 
kathode naar het pootje. De anodes komen samen en gaan naar ICS 
pin 1 (deze mag dus niet meer aan +5 volt liggen). Ook gaat er 
van ICS pin 1 een weerstand van iKohm naar +5 volt. U bent nu 
verzekerd van een goede werking van deze geheugen gebieden in 
Samenwerking met de schakelkaart. 


Veel succes met het ombouwen toegewenst, 


Wibo Visser 
Emmeloord, 
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HAKELKAAR T 


deden 





OMBOUW SC 





Als U net als mij de schakelkaart bezit, maar geen geheugen 
kaart en U bent eigenlijk niet van plan om laatstgenoemde 
(binnen afzienbare tijd) aan te schaffen, dan is dit artikel 
wellicht interessant voor U. 


Ik had de C-MOS RAM’s op zowei AO als op EO gestapeld (At en El 
dus), maar gebruikte het El blok eigenlijk niet, omdat ik mijn 
SOS op EO heb. Doodzonde van de dure RAM chips. Ik vond dat 
hier maar eens een einde aan moest komen. Die 4k kan nuttiger 
gebruikt worden! 


LET WEL, DIT ARTIKEL BESCHRIJFT DE OMBOUW VAN EEN SCHAKEL 
KAART OUD MODEL. 


Nu zouden er voor mij 2 mogelijke bestemmingen zijn: 

=de 4k naar #1000. 

=de Ak naar #4000. 
De eerste keuze bíedt de mogelijkheid om P-CHARME op #1000 te 
zetten. Of om hier een SOS te plaatsen (de floating point moet 
dan wel (weer) aangepast worden). 
De tweede keuze geeft een verlengde lower text-space, makkelijk 
voor super lange programma’s of voor lange teksten op de 
tekst-editor. Het is hierbij natuurlijk wel noodzakelijk, dat 
er in de konputer al geheugen gestapeld is van #3C00 to #SFFF. 


Bij een verandering als deze streeft men er altijd naar om met 
zo weinig mogelijk ingrepen, zo verl mogelijk te bereiken. Zo 
ook in dit geval. Ik hoop dat ik er in geslaagd ben. Overigens 
is het geheel natuurlijk ook uit te voeren, als U nog niet 
gestapeld hebt, maar dan moet U dat alsnog wel even doen. 


Ik ben van het schema van de schakelkaart uitgegaan, zoals zich 
dat op blz. 50 en 5í van A‚N. 1 jaargang 3 bevindt. 


Er moet in principe op 4 plaatsen ingegrepen worden: 
=het ’openen’ van het DATA lijnen buffer (de LS245), als 
het verschoven Ei blok aangesproken moet worden. Dit 


geldt natuurlijk zowel voor schrijf- als voor lees 
operaties. 
=de selektie logika, welke de RAM’s en de EPROM'’s 
selekteerd. 


=de mogelijkheid om vrij in de RAM te kunnen schrijven, 
terwijl de rest toch nog achter de Write Protect zit. 
Dit is dus eigenlijk alleen nodig als de verschuiving 
naar #4000 plaats vindt. 

=de RAM chips zelf. 


De realisatie (prolaag). 


za 





emme ee: 





Alvorens de realisatie te bespreken, wil ik nag graag kwijt dat 
ik bewust voor een oplossing zonder extra chips heb gekozen, 
omdat er anders een onhoudbare situatie zou ontstaan wat 
betreft het aan elkaar plakken en hangen van IC pootjes. Ik heb 
daarom voor een oplossing met dioden en weerstanden gekozen. De 
gebruikte dioden zijn van het type IN4148 of equivalent en de 


OMBOUW SCHAKELKAART ATOM NIEUWS PAG. 17 





weerstanden zijn 1/8 Watt groot. Met de weerstanden en de 
diodes worden de eenvoudigste digitale poorten opgebouwd die 
maar mogelijk zijn en het geheel is redelijk plat te houden. Zo 
wordt er niets overbodigs aangebracht en de onderdelen zijn 
goedkoop en makkelijk verkrijgbaar (in principe zou iedere 
supermarkt ze moeten hebben). 


De reaiisatie (finale). 





Om maar met het eerste punt te beginnen: het DATA lijnen buffer 
ide LS245) werkt alleen als er een adres aangesproken wordt dat 
betrekking op de geheugenkaart heeft. Het betreft dus de 
adressen #AOOO t/m HAFFF, #EGOO t/m #EFFF en #BFFF. We willen 
nu het geheugen gebied #1000 t/m #1FFF cq #4000 t/m #4FFF aan 
de kaart toevoegen. Voor het gekozen gebied moet het DATA 
buffer nu ook open gaan, om DATA door te taten. Hiertoe wordt 
pootje 19 van de LS245 laag gemaakt (boven EN —-van enable- moet 
in het schema nog een streepje staan, omdat deze ingang laag 
aktief is). Dit pootje wordt laag gemaakt door IC (74LS510), 
Linksboven in het schema vindt de detektie van AO, EO en #BFFF 
plaats. Dit moet dus uitgebreid worden met 10 resp. 40. Dit 
vormt een OR funktie, zodat we met dioden en een weerstand een 
OR poort moeten maken, Deze OR poort maken we als volgt. De 
verbinding tussen IC 1 pootje 12 (vanaf hier aangegeven met 
1-12) en 1-11 moet doorgekrast worden, Vanaf 1-11 leggen we een 
weerstand van S5kOhm naar massa (weerstand niet kleiner 
nemen!) Tussen 1-12 en {-1i komt een diode, met de anode (de 
kant waar het streepje NIET zit) aan i-12. Verder komt er een 
diode van 5-10 (de 4001) naar 1-11 (deze is voer het verschoven 
El blok). Er wordt overigens juist op dit punt in het schema 
ingegrepen, omdat de ENABLE ingang van het buffer geklokt is 
1-10). 


De selektie logika voor het selekteren van de RAM’s en de 
EPROM's wordt als volgt aangepast. 

In het geval dat er voor geen verschuiving naar #4000 gekozen 
wardt, moet er het volgende gebeuren. Aan de bestukte kant 
{bovenkant) van de print wordt de verbinding tussen 7-10 
{74LS138) en 6-2 (74552), za dicht magelijk bij 6-9, 
doorgekrast. Ook wordt aan de bovenkant van de print, het 
printspoor, dat op 2-1 (74L514) uitkomt, doorgekrast (er hoeft 
toch geen selektie meer plaats te vinden tussen EO en Ei), 
Vanaf &-9 komt een weerstand van S3kOhm naar massa. Vanaf de 
bovenste 5244, in het schema, komen diodes op de pootjes 18,16 
en 5, met de anode aan de genoemde pootjes en rde kathode’s 
samengevoegd aan é-%. De bedoelde LS244, is op de print het IC, 
dat niet in de midden zit. Tenslotte komt er een draadje van 
pootje ZS van dezelfde LS244 naar 2-1. 

Voor de verhuizing naar #1000 gaan we ook als hierboven 
amschreven te werk. De diodes komen echter op de pootjes 3,16 
en 18 van de LS244 te zitten en pootje 5 gaat naar 2-1. 


Voeren we de verhuizing naar #4000 uit, dan zullen we de RAM op 
#4000 niet achter de write protect willen hebben. De Write 
Protect zal dus gescheiden moeten worden. We zullen de blokken 
AG en EO achter de W.P. willen houden. Via 1-4 wordt het 
schrijven van DATA ân de RAM geregeld. Dit schrijven moet 
geklokt gebeuren (1-5). Het zal duidelijk zijn, dat we 1-6 niet 
meer kunnen gebruiken. We moeten zelf een NAND poort moeten 
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aaken. Met diodes en weerstanden kan geen NAND poort gemaakt 
worden, maar gelukkig is er nog een inverter beschikbaar án 
IC2. Hiervoor noeten we wel het printbaantje van 2-11 naar 1-3 
doorkrassen. Nu leggen we aan 1-4 en 1-5 een diode met de 
kathode naar de genoende punten. De anode’s van deze diode’s 
gaan samen naar 2-11. Verder komt er een weerstand van S5kOhm 
van 2-11 naar +5Volt. Nu wordt 2-10 met pootje 21 van de beide 
&116 chips verbonden, welke het nieuwe blok vormen. Deze 
pootjes moeten hiervoor los van de eventueel boven- of 
onderliggende 6116 zijn. 


Hiernee is het laatste punt eigenlijk ook al besproken. Zij die 
al gestapeld hebben, moeten pootje 21 van beide 61i6’s even 
lashaten. En zij die nog niet gestapeld hebben, stapelen door 
de 6116 op elkaar te solderen, op de pootjes 18 en 21 na. 


Als alles zoals hiervoor beschreven is uitgevoerd, moet het 
werken. 


De uitvoering (toegift). 


xennenenmsesenssersnen 


Als laatste noot nog het volgende: heeft u in de konputer zelf 
2114’s gestapeld? Dan is het verstandig om de selektie lijntjes 
van IC & (LS138), welke naar de gestapelde RAM gaan, ook naar 
ICS te voeren. Zijn deze verbindingen niet aanwezig, dan kunnen 
er in samenhang act de schakelkaart moeilijkheden ontstaan. Zo 
kon ik soms #3C00 t/m SSFFF niet voor de tekst-editor 
gebruiken. 


Licht hiervoor 5-1 van het moederbord uit de voet en verbindt 
deze dav een draadje met 4-7 (dit voor het geval er alleen van 
#3C00 t/m #3FFF gestapeld is). Nu gaat het wel goed. 


Heeft U ook #2000 t/n #23FF en #2400 t/m #27FF gestapeld, dan 
zullen er nog weer een paar diodes en een weerstand bij noeten 
komen. Aan elk van de pootjes 6-7 (ipv het draadje van 
bovenstaande), 6-14 en 6-15 komt een diode, met de kathode naar 
het pootje. De anodes komen samen wen gaan naar 5-1 (deze mag 
dus niet arer aan +SVolt liggen). Ook gaat er van 5-1 een 
weerstand van IkOha naar +SVolt. U bent nu verzekerd van een 
goede werking van deze geheugen gebieden in samenwerking met de 
schakel kaart. 


Veel succes met het ombouwen toegewenst, 


Wibo Visser 
Eanel oord 


ALLES DOVER CASSETTES & RECORDERS ATOM NIEUWS PAG. 21 





Beehedhedhheheashkeskhekaskkanhetatetentb EN 


*x CASSETTE-PROBLEMEN EN MOGELIJKHEDEN #* 
Keehefehhdhekelehehsheehkekekeknetete rr rr Ee 


Ofschoon reeds veet over dit onderwerp is gepubliceerd, zijn er 
hog steeds nieuwe ontwikkelingen die de moeite van het publiceren 
waard zijn, en zijn er ook nog steeds "beginners", voor wie de 
oude publikaties onbekend of niet meer toegankelijk zijn. 


Vooral voor beginners die weinig geld willen uitgeven voor opslag 
van programmatuur is de cassette nog steeds het meest geschikte 
medium. . 
Daarbij is de verleiding groot, dan ook gebruik te maken van een 
of andere simpel cassettevapparaat; dat kan best goed gaan, maar 
ook voor moeilijk op te sporen problemen zorgen. 
Een duurder of zelfs een heel duur cassette-apparaat kan echter 
ook voor problemen zorgen. 
Zoals wellicht bekend, kan met de Atom gewerkt worden op 
verschillende snelheden, 
Het systeem werkt standaard op 300 baud, een snelheid die nog het 
minst critisch is, maar toch ook nog problemen kan opleveren. 
Daarnaast is veel software op 1288 baud opgeborgen, hetgeen al 
heel wat sneller is, maar ook critischer. 
Hiervoor is het in ieder geval nodig, in de Atom op te nemen: 
-ofwel het ALLCOS programma; 
—ofwel JOSBOX, P-CHARME, ASBK-I of soortgelijke Eproms in de IC 
24 voet of op een schakelkaart. 
Ook kan de Atom bedreven worden op 4808, 6908 en zeifs 9602 baud; 
vooralsnog gaat daarbij de voorkeur naar 4800 baud; dat is al 
behoorlijk snel. 
Het spreekt vanzelf dat hiervoor een echte goede cassette 
recorder nodig is, maar ook speciale software genaamd MJCOS, en 
een kleine wijziging aan de Atom. 


Publicaties over deze onderwerpen zijn te vinden in de jaargang 


"B2 (samenvatting), '83, en deels 1984. 
Daarover alsmede over allerlei problemen die bij het laden en 
saven te voorschijn kunnen komen, en die meer liggen op het 


terrein van de software, zal in een volgende publicatie het een 
en ander gezegd worden. 

Op dít moment zouden wij bij wijze van uitzondering alleen alvast 
willen wijzen op het volgende. 

Momenteel zijn van de hiervoor genoemde Eproms (JOSBOX 
etc.)nieuwe versies verkrijgbaar waarin een routine zit die met 
name de 1200 baud snelheid veel minder critisch maakt; moet je er 
dus nog een aanschaffen, vraag dan daarna. 

In deze aflevering willen we vooral aandacht schenken aan de 
maatregelen op “hardware” bebied en hetgeen daar direct mee te 
maken heeft. 


Waarom gaat het 





a. Het signaal van de Atom behoorlijk op de cassette te zetten. 


Db. Het signaal van de cassette zodanig te "maken" dat de Atom het 
zonder fouten kan verwerken. 
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HET SAVEN 





Wat gaat híer zoal fout: 
„- de signalen worden door toerenregeìing en correctienetwerken 
in de recorder zodanig vervormd, dat van de oorspronkelijke 
blokgolf weinig overblijft, 
=ofwel de automatische volume regeling staat te laag ingesteld. 
Dit laatste kan goed gecontroleerd worden door een bandje af te 


spelen op een andere cassette-recorder die een (in- en) output 
aanwijzing heeft; als het goed is, komt de aanwijzing op @ 
dB.Haalt de output niet meer als 7 — 18 dB dan moet een bevriend 


elektroniker in de arm genomen worden om de recorder bij te 
stellen, ofwel proberen de werkwijze die we straks in hoofdstuk 
“Het LADEN" zullen beschrijven. 

Of de blokgolf teveel vervormd wordt, kan eigentijk alleen goed 
gemeten worden met een scoop. 

Om ervoor te zorgen dat het signaal goed op de recorder komt kan 
gebruik worden gemaakt van de, in Acorn Nieuws No.4 1982 
beschreven, filterschakeling of in No.2 jaargang 2 (1985) blz. 19 
= 23. 

HET LADEN. 





In de dagelijkse praktijk werken we welliswaar vaak met bandjes 
welke op de eigen recorder zijn opgenomen, maar ook zeer frequent 
met bandjes die gekocht of van anderen zijn overgenomen. 

En dan ís, de hievoor ín het hoofdstuk "SAVEN" genoemde werkwijze 
uiteraard weinig effectief. 

Daarom dan ook speciale aandacht. Allereerst een weinig bekende 
verbetering de condensator C7, te vinden schuin links "boven" 
1C25,dient een waarde te hebben van 182 nF; Het heeft zin deze te 
controleren. Volgens berichten zijn er Atoms waarin C7 deze 
waarde reeds heeft, zoniet, is het aantrekkelijk de 188 nF 
condensator te installeren; zelfs de 3508 baud input wordt 
daardoor minder critisch. 


2.Een meer algemene verbetering wordt bereikt door een speciale 
"_INPUT-INTERFACE-SCHAKELING" die versterkers en filters bevat, 
zoals weergegeven in het schema. 

Het idee voor deze schakeling is afkomstig van de 
BBC-ingangsschakeing, die dan geheel aangepast is aan de Atom 
behoeftes en mogelijkheden. 

Het resultaat: 

In cembinatie met de moderne 1208 baud routines, levert deze 
interface over een zeer brede range van volume-setting en 
signaalvorm een foutloze input aan de Atom. (Regelen tussen stand 
1 en 8 gaf zelfs tijdens het laden geen errors). 

Het voorddeel is dus, dat nu ook "moeilijke" cassettes gelezen 
kunnen worden, vaak zelfs met fout staande koppen. 

Proeven met MJCOS op 4888 baud gaven ook prima resultaten, ook 
met eenvoudige recorders; 

zelfs op 94608 baud is het signaal op de scoop uitstekend. 

Voor de 4808 baud en 968D baud is het nodig enkele condensators 
aan te passen, aan een definitieve versie voor deze snelheden, 
eventueel omschakelbaar wordt neg gewerkt, U hoort er mog van. 


Erg aantrekkelijk is het deze INPUT-INTERFACE in de Atom op te 
nemen, hij kan echter ook in een apart "tussendoosje"” in de 
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kabel. 

Inbouw in de Atom heeft overigens als negatieve consequentie dat 
er problemen ontstaan als de cassette-inputpoort wordt gebruikt 
voor andere doeleinden. ( bv, LF-counter e.a). 


S.Ondanks de goede diensten van de input-interface, kan het toch 
nog misgaan met het laden. 
Er zijn dan grofweg nog twee fouten: 
-De kop in de recorder staat anders dan in de recorder waarop 
de band was opgenomen. 
Bijstellen is een secuur werkje, waarvoor echter moet worden 
uitgegaan van een cassette die is opgenomen op een erkend goede 
recorder, of nog beter met een echte testcassette. 
” de cassette is met een andere snelheid opgenomen. 
Om deze en andere problemen op het spoor te komen zijn 2 
programma's, waarvan de listings zijn bijgevoegd. 
Het programma “Recorder diagnose" laat de signaalvorm zien, en 
kan ook de frequentie meten. 
Het programma “Tape speed” is voor dit laatste doel echer veel 
beter.Daarmee wordt namelijk zeer duidelijk de afwijking van de 
band op basis v.d. “leader” weergegeven. 
Ook hier weer: als men de snelheid van de eigen recorder wil 
bijstellen doe dit met een cassette waarop op een erkend goede 
recorder de leader=toon geruime tijd is opgenomen. 


Henk Bastings. 
Redactie: B.Tossaint 


1 REM TAPE SPEED TESTER 
18 DIMPP (1) 
20 P‚$21;GOS. a; GOS. a; P. $6; @=0 
30 LINK#FCAF;REM PRINT PLAY TAPE 
ACbLINK#FBBA;REM WAIT 1/2 SEC 
SD ?#80-0; ?#B1=0; X=S56; REM PRESET COUNTS 
60 LINKPPG 
78 P."TAPE IS"ABS((?#81)-200)/2," 
88 IF>#81>200 P."FAST"';6.n 
98 P. "SLOW" ';G.b 








100 E. 
110aDIMP-1 

1206 

138:PPD LDA#BUO2 
148 TAY 


157 EOR#3G; \PREVIOQUS STATE OF #B282 
160 STY#80; \SAVE NEW STATE 

170 TAY 

182 AND@#Z20; \TAPE SIGNAL SAME? 

198 BEG PP1 

205 INCHSI;\IF TAPE INPUT CHANGE 
218:PP1 TYA 

220 AND@#1E;\ OSC 2.4 KHZ CHANGE 
250 BEQ PPO 

248 INX \IF 2.4 TRANSITION 

250 BNE PPO\ UNTIL 28® TRANSITIONS 
260 RTS 

2703 

PROR, 
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1 REM RECORDER DIAGNOSE 

10 DIMB(255) „LL (6) „P(-1) 

15 F.1=B TO &;LLi=P 
20 P.$21;G0S.a;P.$6$12 
“SIGNAAL OF FREQUENTIE"SB 
“PLAY TAPE" 

50 IF ?B=CH"8";G.S 

100 IN. "METEN ROND FREG. (BV 2489) "F 
118 P.$12,"FREGUENTIE: "; @=5 

128 DO LINK LLO 

130 T=2;5=0; E=(5000D0/F-57)/17+1 
148 L=7#E/10;H=1DE/7 

150 F.K=8 TO 255 

168 IF B?K>L; IF B?K<H;8=5+B?Kj T=T+1 
178 N.K 

188 G=500DBD*T/ (17454207) 

190 P.G,$858$54948 
280 UNTIL @ 
300sP. "DRUK OP TOETS VOOR MONSTER" 
305 F.K=l TO 60; WAIT; N- 
318 CLEAR4 
3520 F‚K=18 TO 189 5.20 
350 LINK#FFES;LINK LLS 
348 MOVE(-1) ‚K 
350 F.1=0 TO 255 
355 J=B?K+K 

368 DRAWI ,J; MOVE (I+1) „J 
3578 N.iN.;E. 
40Bal \TIJDMETING EN SAMPLE-ROUT 
405:LL@ LDXED 

41B:LL1 LDA#BRO2; STAHEG 

A20: Li2 LDA#8D; EOR#BOBZ ; ANDEH20 
450 BEG LLZ \WACHT OP FASE OM 
440: LLS LDYEB;LDA#BOO2; STAHSD 
450:LL4 INY;BEG LL1;LDA#80 

46 GEORKBOU2; ANDE#2B; BEG LLA 

47D TYA;STAB,X; INX; BNE LL3;RTS 
509:LLS LDXe@ 
Si@:Lt6 LDA#BBDZ; ANDER28; LSRA 
520 LSRA;STA B,‚X; INX;BNE LL6 
538 RTS: Is R. 
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*MICOS & PROGRAMMER TROUBLES+ 
Dehedhedhedhedheemsakee ekke EN 


Reeds enige tijd werkte ik met de Acorn club-programmer tot 
volle tevredenheid. Op een stecht moment was er een slimmerik 
die MJCOS uitvond. 

Omdat ook ik mijn recorder graag wilde “opvoeren” werd de Acorn 
hard- en soft-warematig aangepast. Het shiftout-bitje ( bitje 
5) in poort A van de VIA werd verbonden met de DIN-plug van de 
cassette in/uitgang. Alles werkte perfect. 


Dacht ik. 
Totdat ik weer eens Eproms moest programmeren. Na 2 Eproms 
geprogrameerd te hebben, en waarbij "bergen" verify-errors 


zaten, kwam ik op ‘t idee dat de programmer wel eens kapot kon 
zijn. Na lang zoeken en prutsen geen resultaat: de programmer 
was okee. 

De software dan? Zelfde resultaat: geen dus. 

Plotsklaps was er ineens het lunimeuze idee: de laatste 
wijziging (tijden geleden) was de MJCOS hardware aanpassing. De 
signalen op de DIN-plug kwamen ook op de VIA poort. 

De oplossing voor dit probleem is eenvoudig: behalve de 
weerstand die gelegd moet worden tussen de VIA en de DIN-plug, 
prutsen we er ook nog een diode bij. 

Deze diode (de goedkoopste die je kunt krijgen bv. in...) komt 
in serie met de weerstand, zodanig, dat het streepje (kathode) 
naar de 6522 poort "wijst", De 6522 kan nu wel de recorder 
“laag” trekken, maar de recorder niet de VIA. Aldus kunnen 
zowel MJCOS als de programmer in gebruik blijven, zonder 
schakelaars of soldeerbouten. 


Gerhard Visser & 
Evert van Schothorst. 
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Pynmamische RAM kaart 














TELEC Groningen verkoopt 32 kByte dynamische RAM kaarten voor de 
Acorn Atom, voor een m-i. redelijke prijs. De informatie die 
bijgeleverd wordt is echter zeer summier. Een schema schijnt niet 
leverbaar te zijn. 

Zo moet je zelf nog wat in de komputer toevoegen om niet in de 
problemen te komen. Bekijken we het schema van ons raspaardje. 
TELEC zegt: verwijder IC &. Goed, dat is logisch, want er is geen 
selektie meer nodig voor de IC's 18 t\m 19. Simpelweg omdat deze 
niet meer in de komputer zitten (haal de 2114's er ook echt uit, 
om andere narigheden te voorkomen). 

Verwijderen we IC 6, dan komen pootjes 2,5,4,5 en & van iC 5 
(774LS38) los te hangen; foute boel. Er kunnen vreemde dingen 
gebeuren. Die traden dan af en toe ook op bij mij. 

Wat gaan we er aan doen? We verwijderen inderdaad IC 6. Maar dan 
moeten we om de zaken netjes te houden, de genoemde ingangen van 
IC 5 wel even met wat weerstandjes aan de +5 Volt knopen 
(hierdoor worden deze ingangen inaktief). Dan wordt het DATA 
buffer (IC4 8304) tenminste weer goed gestuurd. Een 
weerstandwaarde van rond de 2 kOhm voldoet uitstekend. 

Wat we ook kunnen doen, is IC & laten zitten en pootje & van dit 
IC aan massa leggen. Kras hiervoor de baan die op pootje & 
uitkomt door en verbindt het pootje met een draadje naar massa 
‘pootje 8 van hetzelfde IC). 


De 2de methode is wel wat ingrijpender dan de 1ste, maar werkt 
net zo goed. De eerste methode verdient mijn voorkeur. 

Met deze toevoeging werkt de kaart bij mij geheel zonder 
problemen. En dat is natuurlijk wat we nastreven. 


Wibo Visser 


OPRDEP 


Wie heeft een originele 32 KByte 
dynamische RAM-kaart van Acorn in 


gebruik en deze met een 
AB-connector buiten de bus 
gebracht. 

Graag een berichtje naar de 
redaktie met beschrijving van 


eventuele aanpassingen. 
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Ombouw programmer, 


Omdat ik laatst een stel 2732's tegen een zeer aantrekkelijke 
prijs over kon nemen, besloot ik m'n programmer hier ook maar 
geschikt voor te maken ………. 

Bestudering van Acorntjes Brood 2.4 leerde dat het niet moeilijk 
kon zijn. Alleen die oplossing met al die losse schakelaars (wie 
heeft er nu een grie-polig omschakelaar van redelijk formaat in 
de kast liggen?), zag ik niet zo zitten, 


Dan zelf het probleem nog maar eens bestuderen. De 2732 en de 
25532 verschillen kwa aansiuitingen op drie punten. Het betreft de 
aansiuitpennen 18, 28 en 21, 2552 plaatst hier achtereen- volgens 
All, CE en Vop, terwijl 2732 het met CE, OE/Vpp en All doet. 

Dit naast het feit dat er in principe & (zes) mogelijke situaties 
ontstaan, te weten: 


= 2552 lezen ‘25R) 
— 25352 programmeren ZV (25P21} 
= 2552 programmeren 25V (25P25) 
= 2752 lezen {27R) 
= 27532 programmeren Z1Vv (27P21) 
= 2732 programmeren 25V (27P25) 


Uit deze gegevens laat zich eenvoudig een aanstuittabel voor 
beide types EPROM en alle situaties distilleren. Deze kan er dan 
als volgt uit zien: 


pen \ 25R : 25P21 ! 25P2S | 27R | 27P21 : 27P25 





20 \ CE : CE : CE t low 2iv ‘ 25v 
if : : : : Alt 





stand 1 2 3 4 5 & 


En wat is er nu makkelijker om het geheel omschakelbaar te maken 
met een enkele schakelaar (alles hardware matig zo ombouwen, dat 
het software matig te schakelen is, hoor ik iemand zeggen ...). 
De keus valt hiermee op een draaischake- laar. En wel een met 
minimeal zes standen en minimaal 3 p-kontakten. 


Nu weten we dus exact wat we op de pennen 18, 20 en 21 aan moeten 
bieden, om het beoogde te bereiken. Voor de ombouw krassen we de 
koperbanen op de programmer print vlak bij het EPROM voetje door 
bij de genoemde pennen. Aan de genoemde pennen komen nu de moeder 
{p) kontakten van de draaischakelaar. De schakelkontakten worden 
dan volgens de tabel aangesloten. 


Tip: koop bij de draaischakelaar een knop met een standenaan- 
duiding, zodat steeds duidelijk blijft in welke stand de 


programmer staat. 


Wibo Visser 
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LOGIK 





Onder deze noemer zal ik trachten in de komende info blaadjes 
van onze regio het een en ander uit de doeken te doen over 
aìlerlei digitale toestanden. Het idee hierachter is, dat er 
veel nieuwe leden zijn, die niet helemaal (cq helemaal niet) op 
de hoogte zijn van het digitale gebeuren rondom de computer. 
Hier zullen we dus trachten wat verandering in te brengen. 
Tevens zullen de artikelen als “naslagwerk” voor de meer 
gevorderden onder ons van dienst kunnen zijn. 

Om maar “makkelijk” te beginnen deze keer iets over eenvoudige 
digitale (hier kombinatorische) bouwstenen. In eerste instantie 
zullen we 4 basis elementen gaan onderscheiden. 


Inleiding. 


In de wereld van de digitale elektronika draait alles om 2 
nivo's (toestanden): 


laag H hoog 
@ volt H 5 Volt 
@ H 1 


In eerste instantie kunnen we zeggen, dat de gehele logika op 
deze 2 nivo's gebaseerd is. Alleen met deze 2 nivo's zijn we er 
natuurlijk niet. Daar moet iets mee gebeuren. Aan de hand van 
deze 2 nivo's gaan we bewerkingen uitvoeren. Met deze 
bewerkingen kunnen we komplexe logische funkties realiseren. 
Voor het zover is zullen we eerst de eenvoudige bewerkingen 
bekijken. 


AND-gate. 


In de eerste plaats is daar de AND-gate (EN poort). Bekijken we 
de AND-gate met 2 ingangen, dan kunnen we deze vergelijken met 
2 schakelaars in serie. Slechts als beide schakelaars gesloten 
zijn twat overeenkomt met "hoog”) zaì het ingangssignaal aan de 
uitgang beschikbaar zijn. Figuur 1 geeft het Amerikaanse (Texas 
Instruments) symbool van de AND-gate weer. Figuur 2 het IEC 
symbool (IEC is de nieuwe Europese norm). Voor elke poort 
kunnen we een tabel opstellen, welke de funktie van de poort 
weergeeft, Terecht wordt deze tabel de “funktietabel" genoemd. 
Als we de 2 ingangen van de gate x resp. y noemen en de uitgang 
noemen we S, dan kunnen we voor de AND-gate de volgende 
funktietabel opstellen: 


xy 





„SSS |U 


We lezen deze funktietabel als volgt. Als de ingangen x en y 
beide laag (@) zijn, dan is de uitgang S ook laag. Als 
vervolgens x laag ìs en y is hoog, dan blijft S laag. Is x hoog 
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en y laag, dan is 5 nog steeds laag. Tenslotte als Xx en y beide 
heeg zijn, dan is S hoog (vergelijk de situatie bij de 2 
schakelaars in serie, waarbij hoog voor dicht staat en laag 
voor open). Twee voorbeelden van een AND-gate zijn de 740508 
uit de TIL serie en de 4081 uit de CMOS of 4008 serie. 


INVERTER. 


Vervolgens zulien we de INVERTER bekijken. Een Nederlandse naam 
zou NIET poort kunnen zijn. De naam zegt het misschien al. De 
uigang is niet gelijk aan de ingang, d.w.z. als de ingang laag 
is, is de uitgang hoog en omgekeerd. De INVERTER heeft maar 1 
ingang en 1 uitgang. De funktietabel ziet er dan als volgt uit: 


Figuur 5 geeft het symbool volgens de Amerikaanse notatie weer 
en figuur 4 volgens de IEC norm. Het kleine cirkeltje wordt 
inversie cirkel genoemd en duidt de inverterende werking van de 
poort aan, Voorbeelden van de INVERTER zijn de 74LSi4 en de 
4847, 


Als we nu een NIET poort achter een EN poort zouden plaatsen 
zouden we een NIET EN poort krijgen (logisch, of niet soms). 
Deze poort bestaat inderdaad ook en wordt NAND-gate genoemd. De 
funktietabel van de NAND-gate zal dus het omgekeerde beeld 
geven voor de uitgang S t.o.v. de AND gate. Iedereen kan die 
dus voor zich opstellen. Het Amerikaanse symbool staat in 
figuur S en het IEC symbool in figuur 6. Als NAND-gate kunnen 
de 74LS68 en de 4811 genoemd worden. 


OR-gate (inclusive). 


Als derde poort zullen we nu de OR-gate beschouwen. Het betreft 


hier de zgn inclusive-OR, maar hierover straks meer, Deze 
OR-gate is te vergelijken met 2 schakelaars die parallel staan. 
Zodra een van de schakelaars gesloten is, zal het 


ingangssignaal aan de uitgang verschijnen. De funktietabel is 
dan aìs volgt: 


We zien dat als zowel x als Yy hoog zijn, S ook hoog is 
(vergelijk beide schakelaars gesloten). Hierin zit het 
“inclusive": als zowel x als y hoog is, is S ook hoog. 

Figuur 7 geeft het Amerikaanse symbool van de inctusive 
OR-gate, figuur 8 geeft het IEC symbool. Voorbeelden van de 
OR-gate zijn de 741532 en de 4071. 

Ook hier kunnen we weer een INVERTER achter plaatsen. Dan 
krijgen we een NOR-gate. De funktietabel is voor S dan dus net 
omgekeerd aìs bij de OR-gate. De figuren 9 en 18 geven resp. 
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het amerikaase en de IEC symbool weer (let ook weer op de 
inversie cirkel). Voorbeelden van de OR-gate zijn de 74LS32 en 
de 4871. Zij nog vermeld, dat de inclusive OR-gate in het 
dagelijks leven gewoon OR-gate wordt genoemd. 


OR-gate (exclusive). 


Als vierde en voorlopig als laatste beschouwen we de exclusive 
OR-gate, Deze is gelijk aan de inclusive OR-gate. Het enige 
verschil is dat als zowel x als y hoog zijn, uitgang S nu laag 
is texklusief). In de figuren 11 en 12 staan het Amerikaanse en 
het IEC symbool. Voorbeelden zijn de 74LS86 en de 4030. 
Ook hier kunnen we weer een INVERTER plaatsen. Zie de figuren 
13 en 14. Voorbeeld is de 74L5266, 
Normaal gesproken wordt de exclusive OR-gate aangeduid met 
EXOR. 

FINALE, 


Nu we een aantal "basis" vormen van digitate bouwstenen hebben 
bekeken, kunnen we ons afvragen, wat we er mee kunnen. Kier 
over een volgende keer meer, 

Tot slot nog een overzicht van de behandelde poorten: 





OR NOR ; EXOR : EXNOR 





ee 
| 


In woorden: 


AND S= 1 als x=l en y=1 

NAND S = niet 1 als x=1l en y=l 

OR S = 1 als 1 of meer ingangen 1 zijn 

NOR S = niet tf als t of meer ingangen 1 zijn 
EXOR S5 = 1 als uitsluitend 1 ingang 1 is 
EXNOR S = niet 1 als uitsluitend 1 ingang 1 is 
NOT S = inversre van x 


logische groeten, 
Wibo Visser. 
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LOGIKA, deel 1 Lâ SNELLE GOTO'S 
, es Doos Tib: 
Y nn LJ 
AND EIG1 AND FIG. 2 NOT FIG3 NOT FGH 
* Ao « an 
$ s s >is 
y Y — & y vaÂ | 
NAND FIG 5 NAND FIG b DR FIG 7 OR FIGS8 
- x 
X Xd X 
s 1 5 s zis 
, bips jn) 
NOR FIG G NoR FIG 1D EXOR FIG. U EXOR FIGI2 


X x 
EXNOR ven) Op s, 
Y 


in Acorn Nieuws no.5 van dit 
Heuts genaamd ‘Hulpjes’. 

Wat betreft de z.g. snellere 
het machine-code gedeelte kan 
Voor alle duidelijkheid staat 
in.b. exakt intikken i.v.m. 


10A=#2907; B=A 


Z2OP, "1 *5P."2 "IP." E PA 
SOIFA>H2PEC; A=B+7j B=A 
ACIFB>#293C3G. 10 
SOA=A+7; | S=A 
99E. 

Als je dit programma intikt, 


dat met het ‘poken’ 
statement-pointer het 


van 
programma verder zal 


S EXNOR FIC Ju 





jaar staat een artikel van Hans 
goto's ontdekte 
vervallen. 

hieronder een praktijkvoorbeeld. 


ik toevallig dat 


de statementpointer) 


PPS GP. b IP. 





“P.rB ne 


runt en bekijkt zal 
een geheugenadres 
gaan op 


je bemerken, 
in de 
het adres 


wat ingebracht is. 
Het enige waar je op moet letten is dat de statement-pointer 
naar een regelovergang (#UD) of naar een ';' (83B) wijst, 


anders krijgt je ATOM last van 


Indien je 
als run. 


in tekstpagina #29 


Je kan dit kommando dan ook 
gebruiken, dit betekend 
programma-regel kan beginnen 
etc.) 


Willem Kautz 


in een programma of 
uiteraard 
(oppassen 


ingewandsstoornissen. 
werkt zal !5=#2900 hetzelfde zijn 


in direkt-mode 
dat de midden in een 
voor FOR-NEXT, DO-UNTIL 
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LOGISCHE SIMULATOR VOOR DIGITALE SCHAKEL INGEN 
Ee dkkkkkkdehkhhhehhedtkeekehekehe hade haakadadekehekaiakehehed 





Inleiding 





Dit artikel beschrijft een programmapakket van een logische 
simulator. Met deze programmatuur is het mogelijk om digitale 
schakelingen te simuleren, door hier een computermodel van te 
maken en daar de simulator op los te laten. De simulator rekent 
het model dan gedurende een van te voren opgegeven tijdsinterval 
door, waarna de te onderzoeken signalen bekeken kunnen worden. 

Bij de simulator is uitgegaan van zowel flexibiliteit als 


nauwkeurigheid. De flexibiliteit is verwezenlijkt door de 
simulator te voorzien van een "bibliotheek" met 
standaardcomponenten. In deze bibliotheek zijn de elementaire 
bouwstenen, zoals AND, DR, EXOR etc, opgeslagen en deze 
bibliotheek kan door de gebruiker met eigen componenten 
uitgebreid worden (hiervoor is wel enige kennis van Boolse 
algebra noodzakelijk). Deze constructie biedt ook de mogelijkheid 
om reeds getestte en goed bevonden schakelingen als 


standaardcomponent op te nemen. 

Ter bevordering van de nauwkeurigheid is in de simulator de 
mogelijkheid ingebouwd om rekening te houden met de delays van 
bouwstenen. In de praktijk komt dit er op neer dat geen 
bouwstenen met delay @ voorkomen. De gebruiker kan bij elke 
bouwsteen die hij gebruikt de gewenste delaywaarde opgeven. Bij 
een niet gespecificeerde waarde wordt door de simulator de 
defaultwaarde tf ingevuld. Deze "1" is de door de simulator 
gebruikte tijdseenheid. Men kan hier zelf een betekenis aan toe 
kennen in de vorm van seconde, microseconde etc. 

De simulator werkt alleen met de logische waarden 8 (laag niveau) 
en 1 (hoog niveau). Doordat er niet met spanningen wordt gewerkt 
zijn alle signalen dus rechthoekvormig. Bij toepassing van 
spanningen zou het programma te gecompliceerd en te lang worden 
en de rekentijd zou te groot worden. Hierdoor houdt de simulator 
geen rekening met te grote belastingsweerstanden ‘te veel 
bouwstenen aangesloten op een uitgang) of belastingscapaciteiten, 
waardoor de signalen bij grotere frequenties vervormen. Om dit te 
controleren is men dan ook aangewezen op de datasheets van de 
toegepaste IC's. 

Na deze eerste kennismaking volgt nu een globale beschrijving van 
de simulator. Daarna zal het programma-pakket zelf besproken 
worden en de toepassing hiervan. 


2. Benodigheden 








De simulator gebruikt het geheugengebied #8200 t/m #9FFF en het 
gebied #2908 t/m ZFFF. Het geheugen vanaf #2908 wordt gebruikt 
voor opstag van een programma en opslag van het computermodel, 
tabeìlen, lijsten en tussenresultaten. Hoe groter dit 
geheugengebied, hoe groter de te simuleren schakeling kan zijn. 
Als het programma loopt mogen er geen andere programma's of 
boxen, die gebruik maken van de zeropage van #82 t/m #99, actief 
zijn. Verder wordt er ook gebruik gemaakt van de zeropage van #60 
t/m #7B. 
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Naast al deze geheugenbenodigheden moet er ook een disk drive 
aanwezig zijn. De simulator slaat namelijk de resuitaten op in 
een disk file, 





. Toegepast principe 





Voor het construeren van digitale simulators zijn twee 
basisprincipes toepasbaar. Het eerste principe wordt de "compiler 
driven simulator” genoemd. Hierbij wordt het model van de 
schakeling omgezet naar “machine executable code". In het geval 
van de Acorn Atom is dit de machinetaal van de 6582. Voor de 
simulatie van een S-input AND-gate met ingangen B,C,D en uitgang 
E krijgt men dan: 


LDA B; AND C;AND D;STA E 


De simulator voert nu voor eìke inputvector de “compiled code" 
uit en bepaald de uitgangswaarden. Om bij dit principe gebruik te 
kunnen maken van delays moet een aparte bouwsteen, de delay, 
ingevoerd worden. 

Het tweede principe, dat ook hier is toegepast, is de “event 
directed simulation”, Hierbij wordt, in tegenstelling tot de 
eerste methode, niet iedere keer de gehele schakeling 
doorgerekend, maar alleen die gedeelten waar signaalveranderingen 
optreden. Stel op tijdstip t verandert een ingang van bouwsteen x 
met delay y. De simulator rekent bouwsteen x dan geheel door en 
als de nieuwe uitgangswaarde verschilt van de oude, dan zal op 
tijdstip t+y dus een signaalverandering optreden. Deze informatie 
wordt dan opgeslagen in een tijdlijst. In deze tijdlijst werden 
alle veranderingen in chronologische volgorde opgeslagen. Als de 
simulator bij het doorlopen van de tijdlijst nu is aangekomen bij 
tijdstip t+y, dan worden alle bouwstenen die op bouwsteen x zijn 
aangesloten gesimuleerd. Als nu bijvoorbeeld een van die 
bouwstenen w is met delay zen hier treedt ook weer een 
signaalverandering op aan de uitgang, dan wordt dit opgeslagen in 
de tijdlijst op tijdstip tty+z. Treedt er geen verandering op dan 
gebeurt er niets, 

De simulator is dus constant bezig met het halen van informatie 
uit de tijdlijst, het onderzoeken van mogelijke veranderingen en 
het weer terugstoppen van informatie in de tijdlijst. Dit gaat 
net zolang door totdat het te onderzoeken interval geheel is 
onderzocht of er geen veranderingen meer optreden (schakeling is 
stabiel). 

Het tweede principe biedt enkele voordelen t.o.v, het eerste 
principe. Ten eerste is de methode veel efficienter omdat hij 
alleen rekent als er iets in de schakeling gebeurt. Vervolgens 
wordt er rekening gehouden met vertragingen in de bouwstenen. En 
tenslotte kan bij dit principe elk soort schakeling bekeken 
worden, bij het eerste principe kunnen alleen bouwstenen bekeken 
worden, waarvoor code gegenereerd kan worden. 


4. Toegepaste logica 





Bij de simutater wordt gebruik gemaakt van een beperkte vorm van 
de vijf waarden logica. Naast de normale logische waarden "Q" en 
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“1* bevat deze logica ook de waarden "u" tunknown) , @/1- en 
1/O-overgang. De waarden "@” en “1” worden normaal gebruikt als 
ingangswaarden en uitgangswaarden van de bouwstenen. De waarde 
u“ wordt als beginwaarde gebruikt. Bij het begin van de 
Simulatie worden alle signalen op de waarde "u" gezet. Zo kan 
onderzocht worden hoelang het duurt voordat een signaal een 
gedefinieerde waarde aanneemt en of er misschien signalen zijn 
die niet beinvloedbaar zijn. Bij het rekenen met "u* gelden de 
volgende regels (& stelt AND voor, ! OR): 





=@ 


& 
& 


EEGC 
„Se 8 
u 


u 
u 
1 


Bij de output van de simulatie wordt "u“” weergegeven als een 
niveau dat halverwege het @- en 1-niveau ligt 

De waarden @/1 en 1/8 worden alteen gebruikt bij het al eerder 
genoemde doorrekenen van de bouwstenen tijdens het onderzoeken 
van een mogelijke verandering. Bij alle ingangen wordt dan, 
voordat aan het doorrekenen begonnen wordt, d.m.v. een bit 
aangegeven of het een overgang is of niet. Hierdoor is het 
mogelijk om bouwstenen te ontwerpen die alleen op overgangen 
reageren (bijv. positive edge-triggered D-flipflop). 


5. De programmatuur 





Na de blik in het inwendige van de simulator is dan nu het 
programmapakket zelf aan de beurt. De programmatuur bestaat uit 2 
programma's. Het eerste programma, LOSIM-O, is de eigenlijke 
simulator. Dit programma heeft als input het computermodel van de 
schakeling nodig en genereert als output een file, waarin de te 
onderzoeken signalen zijn opgestagen. Verder kan men met dit 
programma nieuwe standaardcomponenten in de bibliotheek opslaan. 
LOSIM-@ wordt in het geheugen geladen vanaf #8200, terwijl het 
model geladen wordt vanaf #2908. LOSIM-® bestaat uit een 
BASIC-gedeelte, dat IK __ beslaat, gevolgt door een 
machinetaalgedeelte van 4 3/4K, Hierdoor blijft 1 3/4K over voor 
de bibliotheek. 

Met het tweede programma, DISPLAY, kunnen de signalen bekeken 
worden. Het programma heeft als input de outputfile van LOSIM-G 
en genereert hieruit een plaatje op het scherm in graphics mode 
4. DISPLAY wordt in het geheugen geladen vanaf #2900. 

De verschillende aspecten van de simulator zullen nu besproken 
worden. Dit zal toegelicht worden aan de hand van een voorbeeld. 
Bij dit voorbeeld gaat het om een schakeling die een blokgolf 
omzet in een niet overlappende tweefase klok. In figuur 1 staat 
bovenaan het ingangssignaal (de blokgolf) en daaronder staan de 2 
uitgangssignalen van de schakeling. M.b.v. een speciale 
ontwerptechniek kan hiervoor een asynchrone schakeling 
geconstrueerd worden, die is weergegeven in figuur 2. Hierin is 
PULS1 het ingangssignaal en PULS2 een resetsignaal, M.b.v. de 
Simulator kan nu getest worden of de ontworpen schakeling ook 
voldoet. 
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Alvorens men kan simuleren moeten ten eerste de gewenste 
standaardcomponenten in de bibliotheek zijn opgeslagen. Hierover 
straks meer. Verder moet het model van de digitale schakeling 
aanwezig zijn. Dit model beschrijft de complete schakeling. Het 
wordt opgemaakt net zoals een BASIC-programma, d.w.z. Meb.v. 
regels met regelnummers. 

Om te beginnen moeten namen worden toegekend aan de verschillende 
bouwstenen en verbindingsdraden. In figuur 2 is dit al gedaan 
voor de bouwstenen. Naast de eigenlijke schakeling wordt dit cok 
gedaan voor de verschillende spanningsbronnen die op de 
schakeling zijn aangesloten. De simulator beschikt over Z soorten 
spanningsbronnen. De eerste is de SET, een gelijkspanningsbron, 
waarmee op een lijn een lage of hoge spanning gezet kan worden 
("B of "1"). De tweede is de PULS, een generator voor 
symmetrische of asymmetrische blokgolven (zie PULS1 en PULSZ 
figuur 2). 
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Als dit voltooid is kunnen de drie blokken van het model 
opgesteld worden, Het eerste blok is het WIRE-blok. Dit blok 
begint met "WIRE", waarna alle bedradingen opgesomd moeten 
worden, onderling gescheiden door komma's en afgesloten met "5". 
In figuur 3, het totale model, is dit ook terug te vinden. 

Het tweede blok is het COMPOUND-blok. Dit blok begint met 
“COMPOUND", waarna alle bouwstenen vermeld moeten worden met 
vermelding van het type (welke standaardcomponent). Bouwstenen 
die van hetzelfde type zijn kunnen worden opgenomen als een rij, 
afzonderlijk gescheiden door Komma's en afgesloten met ":", 


Hierna moet de standaardcomponent vermeld worden, waarna alles 
wordt afgesloten met ";". De constructie is dus als volgt: 
COMPOUND1 , COMPOUNDZ, . . « ,COMPOUNDx s COMPONENT y; 


Figuur 3 kan weer geraadpleegt worden voor de verduidelijking. 
Het is niet noodzakelijk om alle bouwstenen van hetzelfde type in 
een rij op te nemen. Een rij kan ook opgesplitst worden in 
kleinere sub-rijen van het zelfde type. Zo kan regel 58 uit 
figuur 3 vervangen worden door: 


S@ AND1,AND2,AND3 rAND2; 
55 AND4,ANDS zAND2; 


Als een rij meerdere regels in beslag neemt moet er wel voor 
gezorgd worden dat een naam (dit geldt trouwens voor het hele 
model) op een en dezelfde regel staat en niet dat bijv. de eerste 
5 letters op het einde van een regel staan en de rest aan het 
begin van de volgende regel. Verder is het verboden om in een 
naam spaties op te nemen (geldt ook voor het hele model). 

Na deze eerste twee blokken komt het derde en laatste blok. Dit 
begint met "BEGIN" en eindigt met "END". In dit blok moet worden 
aangegeven welke draden op de bouwstenen zijn aangesloten. Dit 


moet voor elke bouwsteen apart gedaan worden. Eerst wordt de 
bouwsteen-naam vermeld, gevolgd door "Hierna volgen, 
gescheiden door komma's, de ingangsdraden en vervolgens de 
uitgangsdraden. De volgorde hiervan is vastgelegd in de 


standaardcomponenten. Bij een AND of OR maakt het niet uit in 
welke volgorde men de ingangen plaatst, omdat de ingangen hier 
gelijkwaardig zijn. Bij bijvoorbeeld een flipflop is de volgorde 
wel van belang. 

Als nu alles wordt afgesloten met “);”, dan heeft men een 
bouwsteen met delay 1. De constructie is dus als volgt: 


COMPQUNDx (INI, INZ, .…… „INy,UIT1,... „UIT2) 3 





Zie ook weer figuur 3, Als een andere delay waarde gewenst is, 
kan die opgenomen worden voor “);". Stel AND4 heeft een delay 12, 
dan wordt regel 198: 

198 AND4 (OR30UT ,OR40UT ,AND40UT, 12) ; 


Een uitzondering op dit verhaal vormen de SET-bouwsteen en de 
PULS-bouwsteen. De constructie voor SET is: 


SETx(WIREy,z); met z=8 of zel 


SETS(IN3,0); wil zeggen dat op INS spanningsbron SETS wordt 
aangesloten met een lage spanning (niveau "@"), De constructie 


LOGISCHE SIMULATOR ATOM NIEUWS PAG. 57 





voor PULS is: 
PULSx (WIREy,assC) 5 met de gehele getallen a>=®, b>0 en c>@ 


PULSS{IN2,5,188,30); wil zeggen dat op INZ pulsgenerator PULSS 
wordt aangesloten met pertodetijd 188, een pulshoogtijd van 538 en 
de eerste puls komt op tijdstip 5. 

Als op bovenstaande manier een model is gemaakt, kan dit gesaved 
en weer geladen worden als een normaal BASIC-programma. 
WAARSCHUWING: alle namen uit het WIRE-blok en het COMPOUND-blok 
moeten in het BEGIN-END blok voorkomen! ! 


1BWIRE 
28 IN,RESET,NOT1OUT,NOT2OUT , AND 10UT , AND20UT , ANDSQUT , 
38 AND40UT , ANDSOUT ,OR1 OUT , ORZOUT ; 


48COMPOUND 

58 ANDi,„AND2,AND3,AND4,ANDS zAND2; 
&0 DRI ,OR2 zOR4; 
78 NOT1,NOT2 : NOT; 
82 PULSi,PULSZ : PULS; 
SOBEGIN 


108 PULSI LIN, 20,100,50) ; 
110 PULS2(RESET,2,1288,5) ; 

128 NOT1 (IN,NOT1OUT) 

150 NOT2(ORZOUT ‚NOT ZOUT) ; 

140 ORI (RESET, AND1OUT,AND20UT , AND30UT , OR 1 DUT) 
159 ORZ(RESET, ANDSOUT ,AND40UT , ANDSOUT ,„OR2OUT ) 
168 AND1 {IN,NOT2OUT, AND1OUT) ; 
170 AND2{NOT20UT ,ORLOUT , AND20UT) 
189 AND3(NOT1OUT,OR1OUT , ANDS0UT ) 
190 AND4 {OR1OUT , ORZOUT , ANDAOUT) ; 
288 ANDS(IN,ORZOUT , ANDSOUT) ; 
21BEND 


Figuur 3 





LOSIM-G 








Als het model in het geheugen staat vanaf #2900 kan de simulator 
gestart worden met #LGAD"LOSIM-B", ?18=#8Z, OLD en RUN. Als 
eerste moet de laatste vrije geheugenplaats vanaf #29209 ingevoerd 
worden. Als het geheugen is uitgebreid met de 16K RAM kaart voert 
men hier dus #7/FFF in. 

LET OP: het gaat om de laatste aanwezige geheugenplaats, niet de 
eerste afwezige!! 

Na deze systeeminformatie volgt een menu waaruit een keuze 
gemaakt kan worden. Met keuze 53 en 4 wordt een overzicht 
verkregen van de aanwezige standaardcomponenten met aanvullende 
informatie (beginadres) op het scherm resp. de printer. Bij dit 
overzicht zal men PULS en SET niet aantreffen, omdat deze in de 
simulator zijn ingebouwd. Met keuze 5 wordt het programma 
verlaten en is men terug in textspace #2900. Tevens wordt een OLD 
uitgevoerd. Als er een fout in het model is geconstateerd kan men 
na keuze 5 meteen de fout opzoeken en verbeteren. Na 718=#82, OLD 
en RUN kan er weer gesimuleerd worden. Verder wordt de laatst 
bezette geheugenplaats van het programma op het scherm afgedrukt. 
Als er nieuwe standaardcomponenten aan de bibliotheek zijn 
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toegevoegd, moet het programma opnieuw gesaved worden. Stel er 
wordt 9F1S afgedrukt, dan moet het programma gesaved worden met 
#SAVE"LOSIMEx "8208 FIA, 

LET OP: het gaat om de laatst bezette geheugenplaats, dus saven 
met 1 meer!t 

Er wordt aangeraden eigen versies op te slaan volgens de 
nummering LOSIMBx. Eventuele verbeterde versies van LOSIM-0 
kunnen dan genummerd worden volgens LOSIM-1, LOSIM-2 etc. 

De eerste twee keuzes zullen nu uitvoerig besproken worden. 


6.1 Opslaan van standaardcomponenten 


Na keuze 2 krijgt men toegang tot de biblietheek. Er kan nu een 
nieuwe standaardcomponent ingevoerd worden. Als er bij het 
invoeren iets mis gaat, wordt naar het menu teruggekeerd en wordt 
de tot dan toe gedeeltelijk ingevoerde standaardcomponent 
uitgewist. Er moet dan weer van voren af aan begonnen worden. Een 
foutmelding kan op twee manieren tot stand komen. Ten eerste door 
een fout bij de invoer. Er kan dan gewoon opnieuw begonnen worden 
met de invoer. Ten tweede kan het voorkomen dat de bibliotheek 
vol is, d.w.2. door de nieuwe standaardcomponent zou het totale 
programma #9FFF overschrijden. 

Bij de invoer moet als eerste de naam, het aantal ingangen en het 
aantal uitgangen van de standaardcomponent ingevoerd worden. 
Vervolgens moet voor elke uitgang de functie Fx, die de samenhang 


tussen uit- en ingangen weergeeft volgens 
UITx=FxCINL,IN2,...,INy), ingevoerd worden. 
Bij de invoer moeten de ingangen aangeduid worden met 


hoofdletters, beginnende vanaf A. Als er bijvoorbeeld 3 ingangen 
zijn dan komt A overeen met ingang 1, B met 2 en C met 3. Een 
andere dan deze drie letters resulteert in een foutmelding. Er 
kan ook aangegeven worden dat het om de inverse van de ingang 
gaat door een kleine letter te gebruiken. Als laatste bestaat de 
mogelijkheid om de ingang alleen op een flank te laten reageren 
door achter de letter een "/" te plaatsen. Ze geeft "A/" aan dat 
er gereageerd wordt op een stijgende flank op ingang 1 (overgang 
van @ naar 1) en “a/" geeft aan dat het om een dalende flank gaat 
{overgang van 1 naar @), 

Dan zijn we tenslotte bij de functies zelf aan gekomen. Deze 
moeten samengesteld worden volgens de “"sum-of-products"” vorm 
oftewel de "minterm” vorm. De notatie hiervoor ís: 


Fx=ABC..Z+aBC..Zt..... 


Dit verklaart de benaming, som van produkten. Som stelt hier de 
OR-functie voor en de produkten zijn AND-functies. De simulator 
kent dus alleen de logische functies AND en OR en elke tunctie 
moet nu volgens de opgegeven notatie in die twee basisfuncties 
uitgedrukt worden. Ter verduidelijking volgen nu enkele 
voorbeelden van verschillende functies: 


inverter (7404) : a 
2=-input AND gate (7408) : AB 
2-input OR gate (7432) : A+B 
4-input NAND gate (7420) : 
a+b+c+d 
S-input NOR gate (7427) : abc 


Z-input EXOR gate (7486) z aB+Atb 
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2-input EXNOR gate 4 


positive edge-triggered D-flipflop with ciear 
B= 


met A=D-ingang, 

IK flipflop 
abCd/E+Abd/E+ABcd/E 

met A=J, B=K, 


wit 
C=0, 


Voor het gebruik 
toepassing van 
gebruik in flipflops. 
ingang voorkomt en er 
constant niveau, dan 
produktterm vervangen 
bij de invoer van de 
houden. Ze kan bij de 
stijgende flank op B v 
flank door QC (G=uitga: 
bij een dalende clock 
en bij constant clock 
laatste voorbeeld valt 
Dit zal vaak het ge 
specificatie van een 
constructie: 


van 


JK-FLIP 


Laten we als laatste pul 

de tweefase klok. Voo 

moeten de volgende stan 
naam 3 

aantal ingangen 

aantal uitgangen 

functie : 


Na keuze 1 kan de schak 
model door her subprog 
worden de tabellen en 
eigenlijke simutatie. 
neemt dit ongeveer 

controleren van 
mededeling 
van de fout, 


2 


PROBRAM INCOMPLETE 


OVERFLOW 


UNKNOWN WIRE 


UNKNOWN COMPOUND 


UNKNOWN COMPONENT 


flankgevoelige ingangen 


het model een 
VERROR AT LINE xxx" 
De volgende foutmeldingen kunnen voorkomen: 


74266) AB+ab 


AB/C 


(74174) 
CLOEK en 
h_ clear 


C=non-CLEAR 
(7475) 


D=CLOCK en E=non-CLEAR 


nn is nog enige toelichting nodig. De 
is vooral ingebouwd voor 
Als in een produktterm een flankgevoelige 
staat op die ingang geen flank maar een 
worden alle ‘voorgaande ingangen in die 
doór de huidige uitgangswaarde. Men moet 
standaardcomponent hier dus rekening mee 
D-flipflop de functie, in geval van een 
ervangen worden door A.1.C=AC, en zonder 
ng). Bij de JK-flipflop wordt de functie 
flank abCE+AbDE+ABCE (=(jkOtJk+JKg) clear) 
niveau GE+OE+GE=GE (=O.CLEAR). Bij het 
op dat de uitgang ook als ingang voorkomt. 
val zijn bij geheugenetementen, Bij de 

bouwsteen krijg je dan de volgende 


FLOP (J,K,@, CLOCK „CLEAR, O9) ; 


nt nog even kijken naar het voorbeeld van 


rdat het model gesimuleerd kan worden, 
daardcomponenten ingevoerd worden: 
AND2 oR4 NOT 
2 4 1 
1 1 1 
AB A+B+C+D a 


6.2 Simuleren 


eling gesimuleerd worden. Eerst wordt het 
ramma PREPARE gecontroleerd op fouten en 

lijsten bepaald die nodig zijn voor de 
Bij het voorbeeld van de tweefase kiok 

seconde in beslag. Als er bij het 
fout wordt geconstateerd, zal de 
verschijnen met daaronder de aard 


er is geen model aanwezig 
niet alle drie de biokken zijn volledig 
er zijn geen spanningsbronnen 
gespecificeerd 

de getallen bij een PULS-bouwsteen zijn 
groter dan 2°31-1 

een wire uit het BEGIN-END blok komt niet 
voor in het WIRE-biok 

een bouwsteen uit het BEGIN-END blok komt 
niet voor ín het COMPDUND-biok 

een comoonent uit het COMPGUND-blok komt 
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niet voor in de bibliotheek 

MEMORY FULL — er is niet genoeg geheugen meer om alle 
informatie op te slaan (zal zelden of 
nooit voorkomen) 


TO MANY COMPOUNDS = er zijn meer dan Z55 bouwstenen (erg 
enwaarschijnlijk) 

TO MANY WIRES Ter zijn meer dan 255 wires (erg 
onwaarschijnlijk) 

SYNTAX er zit een typfout in een van de woorden 


WIRE, COMPOUND, BEGIN en END 

= in een PULS-bouwsteen is periodetijd < 
pulshoogtijd 

…= er komt een compound- of wire-naam voor 
met lengte B (2 komma's, komma en *:" of 
komma en ";" achter elkaar) 

- in een SET-bouwsteen wordt een andere 
waarde dan 8 of t opgegeven 

= ontbreken van ")" of "jr" 

= de opgegeven getallen zijn geen geldige 
decimale getallen 

— het aantal ingangen en uitgangen van een 
bouwsteen komt niet overeen met de 
standaardcomponent 


Na al deze foutmeldingen komt men met een druk op een toets terug 
bij het menu. 
Na deze voorbereiding moet opgegeven worden hoeveel en welke 
wires na de simulatie bekeken moeten worden. Hier moeten namen 
uit het WIRE-blok opgegeven worden. Gebeurt dit niet dan komt de 
foutmelding: 


ERROR AT LINE yyy 
UNKNOWN WIRE 


waarbij yyy het regelnummer is waarin "END" staat. Ook nu komt 
men weer terug bij het menu. Bij ons voorbeeld moeten we 
achtereenvolgens 4, IN, RESET, ANDIOUT en ANDSOUT invoeren. 
Vervolgens moet nog opgegeven worden hoe lang er gesimuleerd moet 
worden. Omdat bìj het voorbeeld generator PULS1 een periodetijd 
heeft van 108 is 599 een geschikte waarde. 

Als laatste wordt naar de naam van de outputfile gevraagd, waarna 
door het subprogramma SIMUL de eigenlijke simulatie uitgevoerd 
kan worden. Dit duurt bij het voorbeeld ongeveer 5 seconde. Ook 
nu kunnen er weer fouten optreden, te weten: 


MEMORY FULL ” het geheugen is te klein om de simulatie voort 
te kunnen zetten 
TIME OVERFLOW — er is een tijdstip > 2“31-1 bereikt 


De laatste twee foutmeldingen hoeven nog niet te betekenen dat de 
Simulatie voor niets is geweest, De outputfile en het programma 
“DISPLAY” zijn zo algemeen van opzet dat het altijd mogelijk is 
om te bekijken wat er nog wel door de Simulator is uitgerekend. 
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7. DISPLAY 





Nadat de simulatie voltooid is, kan men LOSIM-O verlaten en 
DISPLAY in het geheugen laden. Wil men LOSIM-@ of het 
simulatiemodel nog opslaan, dan moet dit eerst gedaan worden. Het 
resultaat van de simulatie uit het voorbeeld is te vinden in 
figuur 4. 

Met DISPLAY kan men elk gewenst interval bekijken. Als het 
Programma voor de eerste keer doorlopen wordt kan het beste het 
interval bekeken worden dat door de simulator is uitgerekend (0 
tot opgegeven waarde). Nadat de afbeelding klaar is kan dan na 
een druk op een toets een’ nieuw interval bekeken worden, zodat 
bepaalde delen kunnen worden uitvergroot (zie figuur 5). Als een 
interval wordt opgegeven dat groter is dan het berekende 
intervaìl, worden de signalen na de laatste berekende waarde tot 
het einde doorgetrokken. 

Na de afbeelding kan het plaatje ook uitgeprint worden, Met "0" 
wordt een klein plaatje verkregen en met “P" een grote afdruk. De 
ingebouwde routines zijn bestemd voor een SEIKOSHA GP-258X. Als 
men een andere printer heeft, moet het assemblergedeelte van 
regel 110 t/m 698 en ook regel 1238 en 1248 vervangen worden 
(array's AA, CC, DD, EE‚ FF, MM, XX en YY niet gebruiken). 

Bij elk signaal wordt rechts een WIRE-nummer afgedrukt. In het 
WIRE-blok is terug te vinden bij welke wire het nummer hoort, 
door vanaf de eerste wire te tellen, beginnende met 1. Zo komt in 
figuur 4 1 overeen met IN, 2 met RESET, 5 met ANDIOUT en 9 met 
ANDSOUT (zie figuur 3). 


NULL: 











a 
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Dd 20 


Figuur 5 


B. Nog enkele voorbeelden 





In figuur 6 is te zien wat er gebeurt als in het voorbeeld de 
reset wordt weggelaten. Doordat er niet gereset wordt, zal de 
simulator bij alle uitgangen de waarde "u" invullen. Alleen NOTi 
en een ingang van AND4 en ANDS hebben nu een gedefinieerde 
waarde. Volgens de simulatie zou de schakeling het nu dus niet 
doen. In de praktijk zal dit wet meevallen, omdat elke bouwsteen 
wel een bepaalde waarde zal aannemen en de schakeling dus toch in 
een bepaalde begintoestand zal komen. De simulator is dus erg 
pessimistisch. Je kunt het ook als volgt uitdrukken: als de 
simulator een schakeling goedkeurt weet je ook zeker dat hij het 
doet. 

In figuur 7 is een simulatie van de al eerder vermeldde 


D-flipflop weergegeven. Van boven naar beneden zijn 
achtereenvolgens D, CLOCK, CLEAR en Q uitgezet. Uit deze figuur 
blijkt duidelijk de toepassing van "/", Op elke stijgende 


clock-flank wordt de informatie op de D-ingang overgenomen en in 
alle andere gevallen blijft de uitgang hetzelfde (behalve bij een 
reset), 
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Figuur 7 


9. Nawoord 





Aanzet tot dit artikel en de programma's was de overweging of het 
mogelijk is om op een microcomputer een relatief snelle simutator 
te laten graaien. Ik geloof dat ik dat met LOSIM-B wel heb 
bewezen, alhoewel ik tot nu toe alleen nog maar kleine 
schakelingen heb uitgeprobeerd. Hoe het programma zich gedraagt 
bij grotere schakelingen moet nog blijken. Hierbij maak ik me 
niet zo zeer zorgen om de benodigde geheugenruimte, omdat bij 
alle voorbeelden is gebleken dat het programma gemakkelijk kan 
draaien zonder de aanwezigheid van een 16K ram kaart. Als een 16K 
ram kaart aanwezig is hoeft men zich dus nergens zorgen om te 
maken. Het enigste probleem bij grote schakelingen kan de 
rekentijd opleveren. Mocht dit grote problemen opleveren, dan zal 
geprobeerd moeten worden om een snellere opvolger van LOSIM-@ te 
maken. ° 

Een ander uitgangspunt voor een opvolger zou kunnen zijn om een 
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versie te maken die geen disk drive nodig heeft. ik heb het 
programma niet met een cassette recorder uitgeprobeerd, maar ik 
verwacht niet dat dat zal lukken. Het opslaan van de data in de 
file wordt namelijk door een machinetaal programma gedaan, 
terwijl het halen van de data uit de file door een basic 
programma gebeurt (DISPLAY). 

De programma's zelf zijn niet opgenomen in dit artikel. Dit omdat 
het belangrijkste deel bestaat uit machinetaal met een source van 
ruim 19K en het is ondoenlijk dit zonder fouten in te typen. 
Naast de programma’s LOSIM-S en DISPLAY is nog een derde 
programma beschikbaar, namelijk LOSIM@1, die in tegenstelling tot 
LOSIM-G geen lege bibliotheek heeft. De volgende 
standaardcomponenten zijn aanwezig: 


omschrijving definitie 
inverter NOT (IN,UIT); 
2-input and gate AND2CIN1, IN2,UIT) ; 
3-input and gate AND3(IN1, IN2,INS,UIT) ; 
4-input and gate ANDA CIN1, INZ, INS, IN4,UIT) 
Z-input nand gate ANDZ (INI, IN2,UIT) ; 
S-input nand gate NANDS CIN1 , IN2, INS, UIT) ; 
4-input nand gate NANDA (INI, INZ, INS, INA, UIT); 
2-input or gate ORZ(INE,IN2,UIT) 5 
S-input or gate ORSCIN1,IN2,INS,UIT) ; 
4-input or gate OR4 (IN ,IN2, INS, IN4,UIT) 5 
Z-input nor gate NOR2CIN1, IN2,UIT) 3 
3-input nor gate NORSCIN1,IN2, INS,UIT) 5 
4-input nor gate NOR4 (IN1, INZ, INS, IN4,UIT) ; 
exor gate EXOR(CIN1,IN2,UIT) ; 
exnor gate EXNOR (INI, INZ,UIT) 3 
D-flipflop (74174) D-FL 1PFLOP(D ‚CLOCK ,NON-CLEAR ,O) ; 
JIK-flipflop (7475) JK-FLIPFLOP(J,K‚G, CLOCK „CLEAR, O) ; 
OPROEP 


Wie beschikt over de software voor 
de ATOM om hiermee print-lay-outs 
te maken/ontwerpen. 

Stuur je reaktie s.v.p. naar de 
redaktie. 
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TEKSTVERWERKER ACORN-ATOM 


INLEIDING. 


Met de tekstverwerker kunnen documenten zoals brieven, folders of 
boeken gemaakt worden. De tekst kan achter elkaar door ingevoerd 
worden en hoeft niet in zinnen afgebroken te worden. Dit doet de 
Editor automatisch. 

In de Atom met geheugen van #2898 tot #5CO8 kunnen ongeveer 5000 
tekens bewerkt worden, wat overeenkomt met ongeveer 3 pagina's A4 
tekst. Er is ook een zgn. correctiebuffer, een geheugengedeelte 
waarin tijdelijk een stuk tekst kan worden opgeslagen om het 
later te gebruiken. (maximaal 448 tekens). 


AANZETTEN EDITOR: 


Het aanzetten van de editor gebeurt door EDIT te tikken en daarna 
op de toets RETURN te drukken. 

Als er geen floating point ROM in de Atom aanwezig is, moet de 
editor aangezet worden met LINK #ACFD, RETURN. 

Op het scherm verschijnt de vraag "Old Text?” 

Als er geen tekst in het geheugen zit, die bewerkt moet worden, 
kan er op RETURN gedrukt worden. Daarna wordt het scherm 
leeggemaakt en verschijnt er een wit blokje dat het “einde tekst” 
aangeeft. Op de onderste regel verschijnt het nummer van de 
“beeldscherm=pagina met daarachter de zgn. prompt die aangeeft 
dat de editor voer gebruik gereed is. Dit ziet er als volgt uit 


pel 
INTIKKEN TEKST: 


Na intikken van het commando E verschijnt op de onderste regel 
achter de prompt E: 
Het geheel gaat er aìs volgt uitzien: 


pOl>E: 


Nu kan er tekst ingetikt worden. Dit kan achter eìkaar door 
gebeuren en de tekst hoeft niet in zinnen afgebroken te worden. 
Dit doet de Editor automatisch. Een nieuwe regel kan begonnen 
worden met de toets RETIRN. Een regel overslaan wordt gedaan door 
een lege regel te maken (2x RETURN), 

Als een woord niet op de regel past hoeft het NIET te worden 
afgebroken, maar kan het op de volgende regel doorgetikt worden. 
Het intikken van tekst kan beeindigd worden door op de toets COPY 
te drukken. Hierna wordt de laatste schermpagina tekst getoond 


BEKIJKEN INGETIKTE TEKST: 


Voor het bekijken van tekst zijn de volgende commamdo's 
beschikbaar: 

S (start of text.) Dit toont de eerste schermpagina vanaf het 
begin van de tekst. 

Z tend of text) Toont de laatste schermpagina tot het einde 
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van de tekst. 

N (next page) Teont een volgende schermpagina. 

P (prevìiaus page) Taent de voorafgaande schermpagina. 
[ (roll up a line) Schuift de tekst 1 regel omhoog. 


CURSORBESTURING: 


De op het scherm getoonde tekst kan nu gewijzigd of verbeterd 
worden. Hiervoor wordt de cursor ( het liggende streepje onder de 
regeì) gebruikt. De cursor kan worden bestuurd met de volgende 
toetsen: 


Het liggende dubbele pijltje stuurt de cursor naar rechts, met 
SHIFT tegelijk ingedrukt naar links. 

Het staande dubbele pijltje stuurt de cursor omhoog, samen met 
SHIFT omlaag. 

De cursor blijft automatisch doortopen als de toets ingedrukt 
blijft. Dit maakt een snelle positionering mogelijk. 

Met C verspringt de cursor naar het begin en met } naar het einde 
van de regel waarin hij zich bevindt. 


Met H verspringt de cursor weer naar zijn beginpositie, 
linksboven op het scherm. 

De plaats waar de cursor zich bevindt kan “gemarkeerd” worden 
door op de toets @ ("apestaart) te drukken. 

Dit wordt aangegeven met een @ op de onderste regel. Het 


gemarkeerde punt kan worden gewist met de toets ESC. 
Als daarna de cursor elders in de tekst geplaatst wordt kan ALLE 
tekst tussen @ en de cursor met bepaalde commando's gewijzigd 
worden. Als er geen positie gemarkeerd is met @ wordt alleen de 
plaats van de cursor beinvloed. 


WIJZIGEN OF CORRIGEREN: 


Voor het wijzigen of corrigeren van de tekst zijn de volgende 
commando's beschikbaar:: 


A — Met A kan tekst tussengevoegd worden achter de huidige plaats 
van de cursor. Na het intikken van A verschijnt op de onderste 
regel A: waarachter de tekst getikt kan worden. Met COPY wordt 
de tekst daarna tussengevoegd. 


B — Met B wordt op dezelfde manier tekst tussengevoegd VOOR de 
cur sor. 
E — Met E kan tekst worden toegevoegd achter het einde van de 


tekst, op de plaats van het witte blokje. 


DELETE — Als op de knop DELETE gedrukt wordt, dan wordt alle 
tekst tussen @ en de cursor gewist. Als er geen positie 
gemarkeerd is met @ wordt alleen de plaats van de cursor gewist. 


C — Als op C gedrukt wordt, dan wordt de tekst tussen @ en de 
Cursor gekopieerd in de correctie buffer. Deze tekst kan dan 
later ingevoegd worden. 


T — Met T wordt de tekst tussen @ en de cursor van het scherm 
verwijderd en in de correctiebuffer opgeslagen voor later 
gebruik. 
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R — Als op R gedrukt wordt verschijnt op de onderste regel R: 
Hierachter ingetikte tekst vervangt, na het drukken op COPY. de 
tekst tussen € en de cursor en wordt bovendien in de correctie 
bufter opgeslagen. 


X — Met X wordt het letterteken dat door de cursor aangegeven 
wordt vervangen door het letterteken dan na X getikt wordt. 

Als na X op COPY gedrukt wordt, dan werdt ALLES na de cursor 
gewist. 


I — Met 1 wordt het letterteken dat na I getikt wordt ingevoegd 
VOOR de cursor. 


ZOEKEN EN VERVANGEN: 
1. Zoeken van tekst: 


F — Met het commando F kan de tekst op het scherm afgezocht 
worden naar het voorkomen van een opgegeven stuk tekst (of een 
woord of letterteken). Vanaf het begin van de huidige 
schermpagina worden alle plaatsen opgezocht waar de opgegeven 
tekst voorkomt. Deze kan dan selectief of op alle voorkomende 
plaatsen weggelaten worden of vervangen door een andere tekst. 

7e te vinden tekst moet omsloten worden door een teken dat niet 
in de te doorzoeken tekst voorkomtn (bijv. / of | of &). Het 
zoekkommando gaat er dan bijvoorbeeld als volgt uitzien: 


F/Huis/ 


Als hierna op COPY gedrukt wordt verschijnt het tekstgedeelte dat 
begint met het gezochte stuk tekst (waar dat het EERST voorkomt) 
linksboven op het scherm. 


2. Zoeken en vervangen: 


Als na het te vinden stuk tekst een tweede stuk tekst opgegeven 
wordt, dat afgesloten wordt met hetzelfde teken, dan kan dit het 
eerste stuk tekst vervangen. Het F-commando gaat er dan bijv. als 
volgt uitzien: 


/huis/woning/ 


Als er nu op COPY gedrukt wordt, dan verschijn de tekst die 
begint met het eerste voorkomen van “huis” tinksboven op het 
scherm. 

Beneden op het scherm verschijnt: 


Fz 


Dit gebeurt iedere keer dat het woord “huis gevonden wordt 

Als hierna Y wordt getikt, wordt op die plaats "huis" vervangen 
door “woning”. Als N wordt getikt, wordt er niet vervangen. Dit 
gaat dooor tot alle plaatsen waar "huis" stond geweest zijn. 

Met ESC kan het F-commando tussentijds uitgeschakeld worden. 

àls bet F-commando afgesloten wordt met A of a dan wordt 
AUTOMATISCH het eerste stuk tekst op ALLE plaatsen vervangen door 
het tweede. Bijv: F/huis/woning/a vervangt “huis” overal door 
“woning”. 

Als het tweede tekstgedeelte "leeg" is, dan kan de te vinden 
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tekst worden gewist. 
Met bijvoorbeeld: F/huis// kan "huis" overal gewist worden. 
Meet F/huis//A overal in 1 keer. 


WEBSCHRIJVEN OF LADEN VAN "FILES", 


Voor het wegschrijven van teksten (files) naar disk of tape wordt 
het commando > gebruikt. 
Na > kan een naam opgegeven worden, bijv: 


> BRIEF 8.85.82 


Als nu op RETURN gedrukt wordt, dan wordt de gehele tekst naar 
disk of tape weggeschreven. 

Voor het laden van een tekst van disk of tape wordt het commando 
< gebruikt. bijv: 


<NOTULEN 


Als hierna op RETURN gedrukt wordt dan wordt het gehele file van 
disk of tape geladen. Als er met cassette gewerkt wordt dan geeft 
het Cassette Operating System (COS), nadat op RETURN gedrukt is, 
het bericht PLAY TAPE of RECORD TAPE. Hierna moet de 
cassetterecorder aangezet worden, waarna op de spatiebalk gedrukt 
moet worden. Nu wordt de tekst geladen of weggeschreven. 


Tekst die menin de correctie butter heeft zitten kan in het 
tekstgeheugen gezet worden door achter de commando's A, B, en E 
direct de COPY toets indrukken. Geen tekst achter de commando's 
intypen omdat anders de correctiebuffer veranderd wordt. 


DIVERSE COMMANDO S: 


W= Met W kan worden nagegaan hoever het tekstgeheugen (het lage 
geheugen van de ATOM) gevuld is. Na het intikken van W verschijnt 
het hexadecimale adres van het einde van de tekst op het scherm. 
Het tekstgeheugen begint op #2800 en eindigt in een volledig 
intern uitgebreide ATOM op #4000. Met externe geheugenkaarten kan 
het tekstgeheugen uitgebreid worden tot #8000. 


* — Achter * kan een COS of DOS commando gebruikt worden vanuit 
de editor, Bijvoorbeeld met : 


CAT 


Hiermee kan een catalogus oppgevraagd worden van alle files op 
een tape of disk. Na het gebruiken van een * commando moet op de 
spatiebalk gedrukt worden om naar het tekstverwerkings programma 
terug te keren. 

Het toevoegen van tekst van tape of disk aan een al geladen tekst 
gaat als volgt: 

Vraag met W het geheugenadres op van de ai geladen tekst en laad 
de toe te voegen tekst op dat adres met #LOAD. Als bijvoorbeeld 
na het intikken van W het adres 29AE verschijnt kan het fite 
"deel twee" met 


«LOAD "deel twee" 29AE 


toegevoegd worden. 
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QG - Met G@ wordt de editor verlaten, De tekstspace-pointer wordt 
op #82 gezet en de inhoud van het tekstgeheugen wordt in het hoge 
geheugen (vanaf #8208) van de ATOM geladen, aìsof deze vanaf het 
toetsenbord was ingetikt. 

Zo wordt de tekst van een BASIC preogramma dat met de 
tekstverwerker is ingetikt automatisch omgezet ín een werkend 
programma in het hoge geheugen. De inhoud van het tekstgeheugen 
van de editor blijft ongewijzigd, zodat door EDIT in te tikken de 
tekstverwerker opnteuw aangezet kan worden en het programma 
eventueel nog verder gewijzigd kan worden. 


G — Met 0 wordt de tekst bewerkt en naar de printer gestuurd en 
afgedrukt. Daarvoor moeten eerst bewerkings-rommando's in de 
tekst ingevoegd zijn. Deze commando's worden verderop behandeld. 


ESC — Met ESC wordt ten alle tijde de uitvoer naar scherm en 
printer stopgezet. 


AANVULLING ED64: 


0 - Met O krijgt men toegang tot de mogelijkheid om tekst af te 
drukken op scherm of printer. 

Na nogmaals op O gedrukt te hebben wordt de tekst alleen op het 
scherm gezet, dit ter controle van de tekst voor het naar de 
printer gestuurd wordt. 


P — Met P wordt de tekst (nadat eerst op Q gedrukt is) naar de 
printer gestuurd 


SHIFT — Met SHIFT kan de tekst op het scherm stilgezet worden, is 
niet van toepassing als de printer aanstaat. 


CTRL = Met CTRL wordt weer verdergegaan met het afdrukken van de 
tekst op het scherm. 


FOUTMELDINGEN: 


Pieptoon — Geeft aan dat de cursor op een ongeldige plaats staat, 
bijvoorbeeld voorbij het einde van de tekst. Een poging om dan de 
commando's A‚ B, of R te gebruiken geeft een pieptoon. 

Een pieptoon kan ook betekenen dat @ twee keer tegelijk gebruikt 
wordt om een plaats in de tekst te markeren. Als dit gebeurt moet 
op ESC gedrukt worden om de fout op te heffen, 


*ePress COPY = Als deze melding verschijnt terwijl een van de 
commando's A, B, R,‚ of T gebruikt is, dan betekent dit dat de 
correctiebuffer vol is. Door op COPY te drukken wordt 


teruggekeerd naar de editor en de inhoud van de correctiebuffter 
bewaard. Deze moet nu eerst in de tekst ingevoegd worden voor 
doorgegaan kan worden met intikken van tekst. 

Als de melding verschijnt terwijl het commando E gebruikt wordt 
om tekst in te tikken, dan is het tekstgeheugen van de editor 
vol. De enige oplossing is het wegschrijven van de tekst naar 
tape of disk en met een nieuwe file beginnen. 


“Full — Deze melding geeft aan dat tekst die ingetikt is achter 
A of B te lang is om nog in het tekstgeheugen erbij te passen. De 
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inhoud van de correctie buffer blijft bewaard maar wordt niet in 
de tekst ingevoegd. De inhoud van het tekstgeheugen dient op tape 
of disk weggeschreven te worden en de inhoud van de correctie 
buffer overgebracht naar het tekstgeheugen. 


**Press SPACE -— Iedere poging om tekst weg te halen voorbij het 
begin van de tekst díe achter A, B, E of R ingetikt wordt, laat 
dit commando vervallen en geeft deze melding. Met een spatie kan 
weer naar de editor worden teruggekeerd. 


Het intikken van niet bestaande commando's en het aanslaan van 
verkeerde toetsen wordt door het tekstverwerkings programma 
genegeerd. 


BEWERKINGSCOMMANDO'S: 


De bewerkingscommando's (processing commands) moeten voor het 
afdrukken in de tekst worden ingevoegd om de vorm waarin de tekst 
wordt afgedrukt te bepalen. Ze moeten aan het begin van een zin 
staan, dus na de RETURN van de vorige zin, of aan het begin van 
het document. 

De commando's bestaan uit een controleteken, dit is in normale 
gevallen een punt, gevolgd door een enkele kleine letter, en soms 
gevolgd door een getal. De volgende commando's kunnen gebruikt 
worden: 


‚1 — Eerste zin. 
Dit commando MOET gebruikt worden om het begin van een document 
aan te geven, Het initialiseert alle bewerkings commando's op hun 
standaardwaarde (default setting), d.w.z. de waarde die alle 
commando's automatisch aannemen tenzij een andere waarde 
opgegeven wordt. 


.1 en .r — Paginagrootte. 
Het commando .l dient ook om het aantal regels tekst per pagina 
te bepalen. Dit kan door achter 1 het gewenste aantal te tikken, 
bijv: 35 
De standaardwaarde is 58 regels per pagina. 

Het commando .r dient om de regellengte en dus de plaats van de 
rechtermarge te bepalen. De standaardwaarde ís 7@ tekens. 


‚Pp ve en .w — Paginanummering. 
Als de bladzijde van een document genummerd moeten worden dan kan 
met .p het gewenste nummer van de beginpagina van het document 
opgegeven worden. Met .p@ kan de bladzijdenummering weer afgezet 
worden, De standaard is geen bladzijdenummering. 
De nummering staat standaard gelijk met de rechtermarge op oneven 
en met de linkermarge op even pagina's. 
Met ‚w wordt de breedte, waarover de paginanummering wordt 
geprint, bepaald … Met de  standaardwaarde 78 komt de nummering 
gelijk met de linker en rechtermarge. Als ‚w een kleinere waarde 
heeft dan komt de nummering dichter naar het midden te staan. 
Met .e wordt de nummering midden onder de pagina’s gezet. 
* Pagina nummering werkt enkel als met .l een waarde opgegeven is 
en ‚k aangegeven is Gek — per document printen) met als 
afsluiting na de laatste regel a. 


ii en .n =— Uittvulien tekst. 
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De tekst wordt standaard bij het afdrukken uitgevuld met extra 
spaties, waardoor de rechtermarge een rechte lijn wordt. Dit 
uitvullen kan worden afgezet met ‚n en weer aangezet met .j. 


‚5 en ‚d -Regelafstand, 
De tekst wordt standaard afgedrukt met enkele regelafstand. Met 
de ‚d kan op dubbele regelafstand overgegaan worden en met .s 
weer op enkele. 


"ii «t en .m -Inspringen. 

Een stuk tekst kan men laten inspringen met het commando .i 
gevolgd door het aantal posities dat de linker marge moet 
opschuiven. bijvoorbeeld: 

17 Deze tekst wordt 7 spaties naar rechts afgedrukt. Dit 
blijft ge- 

handhaafd tot het inspringen is afgezet met het commando 
genaamd .i zonder getal. 


Met .t plus een getal wordt een enkele regeì ingesprongen, 
onafhankelijk van een eventueel .i commando. Het .t commando kan 
dus gebruikt worden om in te springen aan het begin van een 
nieuwe paragraaf. 

Het ‚m commando staat gelijk aan .t@ maar het negeert een getal 
er achter. Het kan dus gebruikt worden om voor een met .i 


ingestelde marge nummers af te drukken. 


-C — Centreren tekst, 
Met ‚c wordt de tekst die smaller is dan de regellengte 
gecentreerd. Als er marges verschoven zijn, dan wordt de tekst 
tussen de marges gecentreerd. 


"à — Ruimte maken. 
Het .aN commando geeft aan dat de volgende N regels op dezelfde 
bladzijde moeten komen. Als er niet genoeg ruimte is tot onderaan 
de bladzijde dat wordt op een nieuwe bladzijde begonnen vanaf het 
punt waar .aN in de tekst voorkomt. Bijvoorbeeld: 


-a4 Lijst van commando's: 


zal tot gevolg hebben dat tenminste 3 regels van de lijst onder 
de kop op dezelfde pagina afgedrukt worden. 

Een lege ruimte van 24 regels voor afbeeldingen in de tekst kan 
gereserveerd worden door het intikken van 220, met als gevolg 
28 lege regels. Een nieuwe bladzijde kan worden begonnen met .a 
zonder getal. 


»k en .o — Besturing printer 
De printer drukt standaard de gehele tekst achter elkaar door af, 
voor gebruik van kettingpapier. Als met losse vellen gewerkt 
wordt moet _k gebruikt worden. Daardoor wordt per pagina 
afgedrukt, waarna het bericht: 


Paper 


op het scherm verschijnt. Na het inzetten van een nieuw vel kan 
op een willekeurige toets gedrukt worden, waarna een volgende 
pagina afgedrukt wordt, enz. 

Met het .oN commando kunnen speciale “controt characters” naar de 
printer gestuurd worden. Hierbij moet voor N de decimale code van 
het character ingevuld worden. Deze control characters kunnen per 
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printer verschillen. 


…{ — Commentaar. 
Een zin die begint met ./ wordt genegeerd bij het afdrukken en 
kan gebruikt worden om commentaar aan een tekst toe te voegen. 
Een andere mogelijkheid is het niet laten afdrukken van een stuk 
tekst zonder dit te wissen, (het schuine streepje / moet de 
andere kant op staan }. 


-x — Veranderen controleteken. 
Met ‚x kam het controleteken voor bewerkingscommando's, dat 
normaal een punt is, veranderd worden in een willekeurig ander 
teken. Bijvoorbeeld: .x% verandert het controleteken van . ín % 
en %x. verandert het dan weer terug in een punt, 
Aan het begin van een nieuwe "file" is het controleteken steeds 
een punt. 


BEWERKEN VAN LANGE DOCUMENTEN 


Documenten die te lang zijn om in het tekstgeheugen van de Atom 
te passen dienen in "files" van een geschikte lengte 
onderverdeeld te worden, die apart op tape of disk bewaard 
worden. De correctiebuffer wordt niet beinvloed door het laden of 
wegschrijven van tekst en kan dus gebruikt worden om tekst uit 
het ene "file" in het andere over te brengen. 

Om het hele document af te drukken kunnen de "files" na elkaar 
geladen, bewerkt en afgedrukt worden. Hierbij blijven de 
bewerkingscommando's die aan het begin van het EERSTE file 
gebruikt zijn geldig, tenzij ze veranderd worden. 


BEWERKEN VAN BASIC PROGRAMMA'S 


Het TEXT commando. 

Om BASIC programma’s te kunnen bewerken dienen deze eerst in de 
goede vorm omgezet te worden. Dit gaat als volgt in zijn werk: 
Laad het programma, in dit voorbeeld PROG genaamd, ín het hoge 
tekstgeheugen door de volgende commando's in te tikken: 


718=#82 
NEW 
LOAD "PROG" 


Hierna dient het TEXT commando aangeroepen te worden door TEXT te 
tikken. Als er geen Floating point ROM in de Atom zit dient het 
aangeroepen te worden met LINK #ACFA. 

Het commando TEXT zorgt ervoor dat aìles wat op het scherm 
afgedrukt wordt in het tekstgeheugen terechtkomt, alsof het was 
ingetikt, 

Als dus na het aanroepen van TEXT het programma "gelist"” wordt 
met het commando LIST, dan komt het programma in de juiste vorm 
in het tekstgeheugen terecht. Nu kan met EDIT de tekstverwerker 
aangezet worden. Op de vraag Old Text? dient nu met Y (Yes) 
geantwoord te worden. Hierna kan het programma bewerkt worden. 
Tenslotte kan het gewijzigde BASIC programma met het commando Q 
weer in het hoge geheugen van de Atom geladen en geprobeerd 
worden. BELANGRIJK: Hierbij worden geen programmaregels van meer 
dan &4 characters lengte geacccepteerd. 


Het aanroepen van de tekstverwerker vanuit BASIC. 
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De tekstverwerker kan worden aangeroepen vanuit een BASIC 
programma in het hoge geheugen van de Atom door in het programma 
LINK #ACF7 uit te voeren. Op deze manier kunnen "text #fites" 
gemaakt worden of gewijzigd door een BASIC programma met 
gebruikmaking van de faciliteiten van de tekst verwerker. 








Salarisverhoging? Het spijt me Jansen, 
maar de computer gaat er niet mee ac- 
coord. 
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OVERZICHT COMMANDO’ S 


Invaer commando's: 


Toets: wijzigt: 
tekst buff. 


A x x 
B x x 

C x 
COPY 

CTRL ED&4 
DELETE x 

E x 

ESC 


ED&4 
ED&A 


MIFT ED&4 


VAD INKXENDWPDOVIOOZ=-ITN 


beschrijving: 


Invoegen na 

Invoegen voor 

KOPIE tekst naar buffer 
Einde tekst 

Start uitvoer scherm 
Wissen 

Intikken tekst 

Wissen markering 

Zoeken (en vervangen) 
Eursor linksboven 
Invoegen tekst 

Volgende schermpagina 
Afdrukken op printer 
Afdrukken op scherm 

Na OQ afdrukken op printer 
Vorige schermpagina 
Naar BASIC programma 
Vervangen tekst 

Naar begin tekst 

Stopt uitvoer scherm 
Tekst naar buffer 

Adres einde tekst 
Wijzigen teken 

Naar einde tekst 

Tekst een regel omhoog 
Curser naar begin regel 
Cursor naar einde regel 
Markeren cursorpositie 
Laden “tekstfile” ° 
Wegschrijven "tekstfile" 
Uitvaeren COS5S/D08S commando 


PAG. 
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Bewerkings commando's 


a 
…e 
„d 


nieuwe bladzijde 

centreren regel 

dubbele regelafstand 
Paginanummers in het midden 
inspringen met N spaties 
uitvullen volgende regels 

per pagina afdrukken 

N regels per pagina 

eerste regeldocument 

marge gelijk aan .t@ 

niet uitvullen volgende regels 
control character N naar printer 
paginering begint met nummr N 
geen paginering 

regellengte naar N tekens 

enkele regelafstand 

inspringen 1 regel met N spaties 
breedte paginanummers 

veranderd controleteken in teken 7 
commentaar — wordt niet afgedrukt 
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Wordpackverandering 3 


In Acorn-nieuws jaargang 3, nummer & (die met vier eikels voor 
het jaargangnummer) staat op bladzijde 88 en 81 een aanpassing 
voor de wordpack beschreven. Daarmee wordt het mogelijk om in een 
regel controi-codes naar de printer te sturen. Dat geldt echter 
voor de standaard versie en niet voor ED&4, 

Met de hier beschreven programma kan ED64 worden aangepast, 

zodanig dat control-codes binnen een regel naar de printer kunnen 

worden gestuurd. Door een routine te vervangen door een kortere 
en de aanmeldingstekst te verkorten is er plek gevonden voor wat 
nieuwe mogelijkheden. 

Die mogelijkheden zijn deze: 

= …h — Hiermee geef je op welk karakter wordt geprint als spatie. 
Bv,“‚h$" aan het begin van een regel doet de editer elke % 
vervangen door een spatie. Dit is voor gebruik bij het 
uitvullen, om te voorkomen dat de edditter op die plaats 
ekstra spaties plaatst, of er de regel afbreekt 
(‚h van hulpspatie). 

Tons etn eds ee“ — Hiermee wordt opgegeven welke escape-seguence 
gekozen wordt. Als dan in de tekst een shiftl (dus £ ) 
wordt gevonden, dan wordt de escapecode die daarmee in een 
tabeì wordt aangewezen naar printer en scherm gestuurd. 
Deze vier karakters kunnen zo ieder een betekenis krijgen. 
De ruimte die zij in de tekst innemen (lbyte) wordt 
vervangen door een spatie, zodat het uitvullen op de 
printer goed blijft gaan. 

Het nummer dat achter .{, …!, ‚> of .* wordt opgegeven is 
het toegangsnummer ín de tabel. Alles vanaf die plaats, 
tot en met het eerste nummer groter dan #7F wordt dan naar 
de printer gestuurd. Wordt echter @ opgegeven, dan wordt 
het oorspronkelijke karakter geprint (dus Ci}* ). Met het 
kommando .l wordt GG geinitieerd, zodat de detauit is als 
de standaard ED64. 

De tabel staat in de listing ingevuld, (regel 1022 t/m 
1258), voor een Epson MX88 III, maar kan eenvoudig worden 
aangepast, en er is nog ruimte voor uitbreiding. 

Om de tabel kort te houden, wordt door het programma de 
eerste escape al direkt geprint, nodig of niet, en het 
laatste karakter is (ascii + #80). (Die #88 wordt door de 
printer toch niet gezien). 

De mogenlijkheden met deze tabel zijn: 


funktie on / oft 
eeen le 
standaard ascii B / - 
shift out 17 2 
shift in 3 4 
emphasized 5 4 & 
doubled 74 14 
superscript 8 / 12 
subscript hi 18 / 12 
underline 15 4 17 
emph. +double 19 / 22 
alles uit / 22 


Bij gebruik van een andere printer moet misschien de tabel 
worden aangepast. 
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En zo is dit verwezenlijkt. 
De oorspronkelijke routine die voor de punt-kommando’s zorgt 


werkte met een lijst met compares. (Zie #ABE6 en verder.) Door 
hiervoor in de plaats een routine met een tabel op te nemen kon 
ruimte worden gemaakt voor de uitbreiding van dat aantal 


punt-kommando's. (Basic-regel 138 t/m 738). De tabe} bevat het 
lage byte van het startpunt van de routine die door het 
puntkommando wordt bedoeld. Het hoge byte is telkens HAS, Door 
PHA in regel 168 wordt het adres op de stack gezet en door RTS 
wordt er dan naar toe gesprongen. 

De tabel wordt ingevuld in regel 758 t/m 770. Zorg er voor dat er 
geen label (LLx) ontbreekt, want dan komt er een onbedoeld adres 
in de tabel. Deze routine met de tabel neemt evenveel ruimte in 
als de oorspronkelijke routine, na toevoeging van de nieuwe 
commando's. 

Het tweede dat is gebeurd is het opvangen van de output-routine 
(net als in AN 3-6). Daarvoor is de aanmeldings tekst sterk 
verkort (zie #HAFB9 ev.) en op de vrijgekomen plaats een routine 
gezet. Daarin wordt eerst gekeken of het te printen karakter de 
spatie-vervanger is, zoja P." “;klaar. Dan wordt gekeken of het 
karakter £,:,} of “ is, zonee print het karakter. 

Is het wel een van die karakters, haal dan uit adres resp. 
#7B,7C,7D,7E vanaf welk karakter uit de escape tabel moet worden 
geprint, zoals eerder met .£, 5, -> en/of .* ís opgegeven. Is 
het een nul; print dan €,1,} of *. Is het geen nul; P.” “,$27 en 
print verder uit die tabel tot het laatste karakter is geprint 
(karakter groter dan #7E), 


Ik ben er van uitgegaan dat niemand de listing intypt en heb dus 
met ED64 wat extra opmerkingen bijgevoegd. Die staan telkens aan 
het einde van de reget na een \. 
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18 \ aanpassing van ed&4 

20 A=#AAD2;B=#400B;EPROM 4 \ of waar ED64 nu staat 

38 FOR N=@TORFFF S, 4; BIN=AINGN. \ copieer ED&4 naar #4020 
ev. 

4@ EPROM @; \ ram 

58 FOR N=@TOHFFF S.45AIN=BIN;N. \ copieer ED64 naar #AGQG 


ev. 
#8 DIM LiL255 \ dat zal wel genoeg zijn 
78 FOR N=@TO 2553LLN=-IjN. 


88 T=#AFFF; G=HAPDF \ T=tabelwijzer, Gede ED64-routine die 
het getal achter het puntkommando leest 
2 P.$21 


102 FOR N=@TO1 

118 P=#$ABE& 

128L 

150:LL0 \vervang HABEG ev. 

148 INY;LDA (#52),Y;BMI LLS@;CMP @#5C;BCC LLSO \(#52) ,Y is 
het karakter dat onderhande is. Hier wordt gekontroleerd of het 
niet buiten de tabel valt 

158 STA #21; TAX \ sla op in #21 voor later gebruik en zet in 
X als tabel-offset 

168:LLSt LDA E@HAS;PHA;LDA T,‚X5PHA; SEC;RTS \ zet #ASxx op de 
stack (xx komt uit de tabel) en RTS er naartoe 

170:LL59 \tabelwijzer, de tabel wordt ingevuld in regel 740 
t/m 746 

182} 

198 T=LLS9-#5C 

288 P=LL59+35 \ eerste plaats na de tabel 

218 
Nu volgen eerst de labels voor de ascii-waardes die niet als 
puntkommando voorkomen, maar wel binnen de tabel vallen 

220:LL3 \.J 

258:LL4 kad 

248: LLS 

25@:LLb 

26@:LL8 

270: 12 

28@:LL13 

29@:LL23 

50B:LL27 

31&:LL28 

328:LL 31 

330:LL32 \ez 

340: LLS© \geen puntkom. 

358 PLA;PLA;LDY @D; JMP HASSI 

368:Lt 9 ROR #57;RTS; \.c centreer de regel 

37@:LL1& STX #BF;RTS; \.j uitvullen 

380:LL20 ROR #BF;RTS; \.n niet uitvullen 
398:LLiD ROR #BE;RTS; \.d dubbel spatie 
\.s 
HBB; 





- 
J 


eere rer 


<<ECDO +0 


480:LL25 STX #EE;RTS; single spatie 

41@:LL15 JSR G;LDA ADC #BD;SEC; STX H#BED;BCS LL4B; Nei 
inspringen 

420:tL24 JSR G; SEC; \.r rechter kantlijn 

430: LL40 SBC H#HBD;STA #HEBIRTS 

44O:LL21 ISR GIMP HFFF4; \.o output karakter 

45@:LL26 JSR Gj \.t tijdelijk inspringen 

460:LL45 LDA #8B;STA #5B;ADC #ED;STX #5A 

478 SEC;SBC #5A; STA HEB:RTS 
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488:LL17 ROR #91;RTS; \.k keypress voor volgende pagina 

49G:LL41 LDX #SE;BEG LL42 

S8B:LL45 ISR HFFED;DEX;BNE LL45 

SIl@:LL42 JMP HAA25 

S20:LL29 ISR Gs \.Ww wijdte voor pagina nummering 

5SS@:LL4B STA #8C;RTS 

540:LL22 JSR G3STX #89; \.p pagina nummer 

S5B:Lt47 LDA @9;5 STA #BA;RTS 

56B:LL7 JSR G5BEQ LL41;CMP #88;BEG LL44; BCS LL41; \.a allow nen 
page of zoveel regels op dezelfde pagina's 

57@:LL44 RTS 

S8O:LL19 LDX @B;CLC;BCC LL4S; \.m marge @ (=.t@) 

S9@:LLIB ISR G;BNE LL46;3LDA @#3A; \.,1l line 1 en hoeveel volgen, 
initieer 

&00:Li46 STA #90;STA #8B;JSR LL47;LDX G#4 

G1O:LL33 STA #7A,X;STA #8B,X; DEX; BNE LL33 

628 STA #91; STA #92; STA #89; STA #7F 

658 LDA @#46;STA #9B;BNE LL48 

640: LL3B INY;LDA (#52) ,Y;STA #SFIRTS 4; \.x vervang » door ander 

&SB:LL 2 LDA @#BD; \.\ wat volgt niet printen (kommentaar) 

B6B:LLG9 INY;CMP (#52) ,Y;BNE LL49;RTS 

67B:LLi1 ROR #92;RTS; \-e paginanummers in het midden van (.w) 

&BE:LL14 INY;LDA (#52},Y;STA #7F;RTS \.,h hulpspatie : nieuw 

698: LLS \.{ 2 nieuw 

7O@:LL34 Net 2 nieuw 

71@:LL35 NÀ 2 nieuw 

720:LL36 JSR GiLDX #21; STA #B0,X;RTS \.Y 1 nieuw 

73@:LL9D; 1; \ maximaal HASDS5. Door PRINT LL®@ kan worden 
gekontroleerd of de routine (met tabet ) niet te lang is geworden 

740 N.;P=LLS95 FOR N=B TO 54 

750 PPN=(LL(N+2) 4256) =1 \ hier wordt de tabel ingevuld. Het 
tow-byte wordt berekend -1, omdat bij een RTS de stack-waarde +1 
in de programcounter wordt gezet 

788 N. 

778 GOS.o \ daar wordt de aanmeldings-tekst verkort neergezet 
en LL72 komt terug met de eerste vrije plaats na die tekst 

782 FOR N=@T01 

798 Pet 7/2 

BOB 

81@:Li52 CMP #7F;BEU LL&8;5 \.hCHAR. er moet dus een spatie 
geprint worden 

828 CMP @#7B;BCC LL&1 (print). Het is niet ,:,} of * dus print 
het karakter 

838 TAX;LDA #0,X;BEG LL&2; TAX \ haal het getal op dat met 
„{ynivedseY Of „1 is opgegeven en zet dat in X als tabetoffset 

840 JSR LL&B \vuì op met spatie 

858 LDA @#IB \escape 

860:LL6S ISR HFFFG \ outputroutine 

870 LDA LL6S,X;BMI LL&i;INX;BNE LL63 \loop tot char. >#7F 

88@:LL6B LDA @#2O \ space 

B9@:LL&t ISR #FFF4 \ print 

08 RTS 

S1O:LL&2 TXA;BNE LL61 

92®:LLES 

930 

GAD N, 

950 ?#ABCC=LL 524256 \ 

9468 PHABCD=LLSZ/256 \ verander in ED64 de JSR #FFF4 in JSR 
LL52. M.a.w. vang de outputroutine op 
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970 P.$6 
>88 P=tL&5 
Hierna wordt de printer-afhankelijke tabel ingevuld 











9e PPD=0 H \ gewone char, 
109@ P?1=$BE 5 \ shift aut on 
1018 P?2=#94 ; \ shift out off 
1829 PP3=#BF ; \ shift in on 
1858 P?4=$92 ; \ shift in off 
1848 PPS=#C5 5 \ emphas.on 
1850 P?b=#C6 5 \ emphas.off 
1058 P?7=#C? 3 \ double en 
1873 3 \ superscr.on 
1888 

18098 3 \ subscr.on 
1102 

1118 H \ s/s-scr.off 
1122 

1159 H \ double off 
1148 H \ underl.on 
1158 

1168 EJ \ underl.off 
1178 

1188 EJ \ emp+doubl,on 
1198 ;P?21=#C8 

1208 5 \ all off 
1210 ? =#54 

12208 P726=#48 

1238 7 #2D ;P729=0 
1248 P?3@=#14 ;PPS1=#92 

i258 E 


12600 P=#AFIB; P="OLD TEXT Y/N" 
1278 P=P+L.P; ?P=EA; PP 1=460 
1288 LL72=P+2 

1298 R. 


Na het runnen van dit programma kan het hele A-blok worden 
geprogrammeerd in een EPROM en verder zijn diensten bewijzen. 


PS. Bij zeer intensief gebruik van deze EDGATR (een werkstuk met 
zo'n 209 pagina's tekst) is gebleken dat na het gebruik van de 
floppy vanuit de editter, het zero-page adres #20, dat ik eerst 
gebruikte voor ‚h‚ werd overschreven. Daarom ben ik overgegaan 
naar #7F, Of deze en/of andere toegepaste zero-page adressen 
problemen geven moet nog gaan blijken. Tot nu toe liikt het 
allemaal goed te gaan, maar je bent gewaarschuwd. 


Zero-page gebruik: 

#21 tijdelijke opslag van de puntkommando letter. 

#7B tabel-pointer zoals opgegeven met .{. Na ‚l staat er B. 

#7C tabel-pointer zoals opgegeven met .:. Na .1l staat er @. 

#7D tabel-pointer zoals opgegeven met .}. Na „1 staat er @. 

#7E tabel-pointer zoals opgegeven met .*. Na .l staat er @. 

#7F het karakter dat bij uitprinten wordt vervangen door een 
spatie, zoals opgegeven met .h. Na .ì staat er @. 
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Het MACINTOSH programma 


Dit is een uitgebreid teken programma wat gebaseert is op het 
gebruik van een joystick in plaats van een muis. Met de Joystick 
wordt getekend en worden de verschillende mogelijkheden gekozen. 
Dit is ongeveer overeenkomstig met het gebruik van een muis 
vandaar de naam macintosh. Het enige nadeel is voor de meeste 
mensen dat het programma vrij groot is en dat verschillende boxen 
gebruikt worden. Benodigd zijn: 


=___p-charme 
= __gagsrom 
= geheugen van #2508 tot #6800 


Op #2500 staat een flow routine. 

Op #2600 staat het shape commando. 

Op #2799 zit een shape tabel (kruis). 

Op #2718 staat het move commando. 

En op #2720 staat een joystick uitlees routine. 


Het gebruik: 
Laad het programma met #LOAD "MACINT" en run het na een END. Het 


programma MOET op #2909 gerund worden. Nu ziet u dat er een 
scherm wordt gemaakt met aan de randen aparte bloken met 
Commmando’'s en in het midden staat een kruis. Door nu de joystick 
te bewegen zal het kruis over het beeldscherm verschuiven. Als u 
nu met het kruis bìjvoorbeeld naar CAT gaat en dan binnen dit 
blok op de vuurknop drukt van de joystick dan wordt dít commando 
uitgevoerd. (Er komt dan een disk catalogus). De rij commando's 
die boven aan het scherm staan spreken eigenlijk voor zich. De 
onderste rij zijn teken commando's en de verticale rijen zijn 
paint patronen, De mogelijke commando's zijn als volgt: 


De bovenste rij: 


INV = inverteer het scherm 

NEW == wis het scherm en begin opnieuw 

CAT - maak een disk catalogus 

DFF - zet alle commando's af en ga naar het midden van 
het scherm 

SAVE — save het beeldscherm op de diskette 

LOAD — load een eerder gesaved scherm 

QUIT — stoppen 


de onderste rij: 


CIRKEL = teken cirkels 

POTLOOD - tekenen als met een potlood 
M/D — het move/draw commando 

FILL = patroon opvul routine 

CL. = uitwissen van fouten 

? — compacte instructie uitleg 


Het werkt verder als volgt. Als aanwijs punt wordt het meest 
linkse puntje van het krusje gebruikt. Dit is om programmeer 
technische en gebruikers redenen gedaan. Ik vond in practijk dat 
dit makkelijker was als het middelpunt van het kruisje. Voor het 
tekenen van een cirkel gaat u eerst naar de cirkel op de onderste 
rij en drukt dan op de knop als het kruis zich hetemaal binnen 
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het vak bevindt, U hoort dan een geluidje. Nu is dus het cirkel 
teken commando aangeroepen. U gaat nu eerst naar de plaats waar 
het middelpunt van de cirkel moet komen en laat dan de Joystick 
los en drukt op de knop. U hoort een lage pieptoon en er wordt 
een puntje geplot om aan te blijven geven waar het middelpunt is 
gekozen. Nu gaat u de rand van de cirkel aangeven en drukt dan 
weer op de knop en zie de cirkel staat er. Het MOVE/DRAW commando 
werkt aì haast net zo, U gaat eerst weer het commando kiezen en 
drukt dan op de knop waar het het begin van de lijn moet komen. 
Oek nu heort u weer een lage pieptoon. Vervolgens gaat u naar het 
eindpunt van de lijn en drukt alweer op de knop. Als het goed is 
wordt er nu een lijn getrokken. Het POTLOOD commando werkt Zo, om 
te tekenen moet u de knop indrukken en onderwijl de Joystick 
bewegen, Fouten kunt u met de CL. routine herstellen. Kies het 
commando en ga naar de fout toe, Als u nu op de knop drukt wordt 
een vierkantje ter grootte van het kruis schoon gemaakt. Kleine 
foutjes kunt u met de POTLOOD routine uitwissen omdat deze 
inverterend werkt. Met het FILL commando kunt afgesloten vlakken 
opvullen met patronen uit de verticale vakken. Eerst het FILL 
commando aanroepen en dan naar het vlak gaan met het te kiezen 
patroon, ook in dit vlak weer op de knop drukken. Als u nu klaar 
bent met tekenen gaat u naar SAVE en er wordt dan gevraagd hoe u 
de tekening wil saven met of zonder menu rand. Dit is natuurlijk 
nodig als u uw tekening voor een ander programma wil gebruiken. 
Als u later de tekening zonder menu rand later weer van schijf 
haalt wordt er getest of er een menu rand is of niet. Ze niet dan 


wordt er opnieuw een menu rand gemaakt. Voor een ding moet u wel 
oppassen, u mag de vuurknop van de stick niet indrukken als u de 
stick beweegt. Een uitzondering hierop zijn de CL.- en het 


POTLOOD commando's. Ook moet u ermee rekening houden dat het 
meest linkse puntje van het kruis gebruikt wordt als aanwijspunt. 
Ik hoop verder dat u er wat aan heeft en veel Plezier ermee. 


Tenslotte nog over het programma zelf. Allereerst wordt er een 
scherm met commando's aangemaakt waarna er een kruisje geplot 
wordt met het shape commando {komt uit de CX-3.82 Hox). 
Vervolgens wordt er steeds naar de joystick gekeken waarna het 
kruisje verplaatst wordt. Komt het kruisje in de buurt van de 
commando's dan wordt er gekeken welk commando aangeroepen moet 
worden. Voor het saven, laden en het maken van een catalog wordt 
het scherm op 

geslagen in het gebied van #5028 tot #6898. Nadat het commando ís 
uitgevoerd wordt het opgeslagen scherm weer terug gekopieerd. Het 
programma was bij het schrijven zeer overzichtelijk maar ik heb 
veel procedures af moet korten omdat er toch nog iets te weinig 
geheugen voorradig was. Hierdoor is het wel veel minder leesbaar 
geworden maar daar tegenover staat dat het wel weer sneller is 
geworden. Het programma werkt namelijk cok nog recursief waardoor 
er nog extra geheugen nodig is. En hierdoor werden de patroon 
tabellen aangetast. De patronen zijn eventueel zeer snel aan te 
pessen omdat ze in het programma staan en hebben de nummers van 1 
tet 12. Het programma is eventueel nog verder uit te breiden. 
Zoals het nu is worden er 27 procedures gebruikt en blijven er 
voor uitbreiding nog 6 over. Ik zelf denk nog aan een continue 
opgave van de coordinaten op interrupt maar daarvoor moet ik nog 
wat meer in de machinetaal duiken, 


Dick van den Ende, Dordrecht. 
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ANIMATIE 


Door Robbie Niessen en Bernard. Rutgrink 


Animatie is een tekenprogramma om tekenfilms te maken. Men 
heeft minimaal geheugen nodig van #+1009 tot #1308 en van #2908 
tot #3C0D. Met dit geheugen kan je maximaal 50 tekeningen 
opslaan. Het opslaan van 1 tekening kost 24 bytes dus als je 
geheugen van #2900 tot #8008 loopt kan je 730 tekeningen 
opslaan. Voor dit progamma heb je de AXR 1 en P-CHARME ram 
nodig. Deze moeten door elkaar gebruikt kunnen worden. 

Na het starten van het programma verschijnt het menu. Vanuit 
hier kunt u kiezen uit de volgende dingen. 


1) start film 
2) edit film 
5) load film 
4) save film 
5) stop 


START FILM. 

De film die in het geheugen zit wordt dan vertoont. Eerst moet 
u een paar vragen beantwoorden. Bij de eerste vraag moet u de 
vertraging invoeren bv.S58. Daarna wordt er gevraagt of u de 
tekeningen aan een stuk door wilt zien. Als u antwoord met nee 
dan komt de volgende tekening pas als u een toets heeft 
ingedrukt. Hierna moet u invoeren of u de hele film wilt zien 
of maar een deel van de film. Wilt u maar een klein deel zien 
dan vraagt hij van waar tot waar u de film wilt zien, 


EDIT FILM. 

Dit is het belangrijkste deel van het programma. Vanuit hier 
kunt u een nieuwe film maken of een bestaande wijzigen. Om te 
beginnen vraagt de computer welk tekeningnummer u wilt zien. 
Als er nog geen film is dan begint u bij nummer @. De tekening 
van het mannetje bestaat uit 12 co-ordinaten. Elke co-ordinaat 
komt over een met een lichaamsdeel (zie tek.) U kunt deze 
veranderen door op de ‘Lt’ te drukken. De computer vraagt dan 
een lichaamsdeel nummer (@-11). U voert dit in en u kunt de 
nieuw gekozen co-ordinaat verschuiven. Het verschuiven doet u 
met de volgende toetsen. 


Z z links 
X 2 rechts 
L 2 boven 
1x beneden 


Met de ‘rept’ toets ingedrukt kunt de beweging versnellen. Met 
de ‘T° kunt u naar een ander tekening nummer. Met de ‘B’ kunt u 
de bewegingen tussen een aantal tekeningen laten berekenen. Als 
u by. tekening nummer @ en 5 heeft getekent dan kunt u hiermee 
de tussenliggende tekeningen berekenen. De computer tekent nu 
zelf de tekening nummers 1 - 4, Als je dit tater ziet in een 
film dan zie je dat hij van tekening nummer @Q geleidelijk 
overgaat naar nummer S. Dit is dus een makkelijk hulpmiddel 
voor als u een lange film wilt maken. Met de 'S° gaat u weer 
terug naar het menu. 
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LOAD 


FILM. 


Hiermee kan je een film laden. 


SAVE 


FILM 


Hiermee save je de film die in het geheugen staat 


STOP 


Beeindigt programma. 


22 

20 

30 

40 

50 

60 

79 

80 

98 
108 
115 
111 
120 
132 
140 
158 
188 
178 
189 
195 
202 
218 
220 
258 
248 
258 
268 
280 
290 
300 


PROGRAM ANIMATIE 

REMMADE BY HAMBURGERSOFT 

RELOC #FS46,#F73B,#1000 

BEEP 1,1;E=8 

DIM MM4 

F.Z=l TO 4;MMZ=-1jN. 

ON ERROR P.$7'“FOUTE INVOER";LI.#FB7A;G. 1978 


PROC MENU 

GR. 5 ?#E1=D5P." "$HTABIG 
P."'« ANIMATIE #";HTAB8 
P‚"BY HAMBURGERSOFT * 

P. \CU1:START FILM" 
P_"2:EDIT FILM" 
P‚"S:LO0AD FILM" 

P."4: SAVE FILM" 











P."5:STOP" "UW KEUS 7" 
INKEY G;G=G-48 
IF G=1; FILM 





IF G=Zj;EDIT 

IF G=3;LEES 

IF G=4; SCHRIJF 

IF G=5;P.$12"DK"" "3E. 
IF G<1 OR G>5;G. 178 
6.120 

PEND 


PROC ZETMACH 
FOR Q=1 TO 2;P=#1069 
P.$21;C;5 JSR #F7AA;RTS 


318; P=#10C6EL}RTSIRTSI RTS; 1 


320 
330 


348: 


358 


368: 


570 
382 
3,0 
400 
412 
428 
4358 
AAA 


P=#117A;L;RTS;RTS; RTS; 1 
P=#11F5;L 
MMO 

LDX €@ 

ML 

INX 

LDA #70, X 
CMP €102 
BEG MZ 
LDA @5 
STA #16 
CPX €100 
BNE MMS 
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450: 


468 
478 
4808 


490: 


500 
510 
520 
550 
540 
550 
568 
578 
588 
598 
&70 
610 
620 
650 
&40 
650 


MM2 

LDA @4 

STA #16 
INX 

MMS 

LDA #700,X 
TAY 

LDA (#84) ‚Yv 
STA #5A 
LDA @2 

STA #5B 
STA #5D 
INY 

LDA (#84) ,Y 
STA #5C 
STX #9F 
JSR #102A 
LDX #9F 
CPX €18 
BNE MMI 
RTS 


6681 


678 
450 
490 
718 
728 
750 
748 
750 
760 
778 
780 
798 
Ba8 
818 
820 
B58 
840 
850 
860 
870 
B88 
B98 
905 
918 
920 
250 
940 
950 
60 
970 
988 
993 
1227 
1820 
1930 
1240 
1254 


NEXT G;P.$6 
PEND 


PROC FILM 

CLEAR4; P. #32 

F=8;C=0;L=N; S=2; D=0 

Do 

IN. ** “VERTRAGING *D 
U.D>8 

IN." ““AUTO REPEAT (J/N) "SA 
XIF SA="J";5=0 

ELSE S=i 

IN. “““TOTALE FILM (J/N) “SA 
IF $A="J";G.870 

DO; CLEAR4 

P.530"AANTAL TEKENINGEN “N° 
IN. “”VAN "F 

IN. ““TDT “t 

U.FDB AND F<L AND LSN 
C=F;F=B+F424 

B+L#24 

J=1;CLEAR 4 

FOR Q=F TO L STEP 24 

CLEAR 4 

1#B4=0; LI. MMO 

P‚s30,C 

J=3-J;C=C+1 

IF S=1; INKEY Z;G.970 

FOR Z=l TO DiN. 

NEXT 8 

LI. #FFE3 

PEND 








PROC EDIT 
?#E1=0; DO; DO 

P-‘"AANTAL TEKENINGEN-"N" 
IN. "WELKE TEKENING "M 
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1260 
1270 
19808 
1890 
1102 
1110 
1120 
1130 
1148 
1150 
1168 
1178 
1180 
1190 
1238 
1210 
1220 
1250 
1240 
1258 
1260 
1270 
1288 
1290 
1308 
1318 
1328 
1330 
1340 
1350 
1368 
1578 
1380 
1428 
1418 
1428 
1430 
1440 
1450 
14608 
1478 
1488 
1498 
1588 
1512 
1528 
1530 
1540 
1558 
1568 
1578 
1582 
1590 
1603 
1618 
1628 
1658 
1640 
1650 


U.M>=B 

P=B+M#24 

IF P>=E; HOOGTE 

520; Q=P-24 

DO;CLEAR 4 

XEPHERZI AX? X 

Y=P+S2t1; Y=2Y 

1#84=P; LI. MMO 

P_$38" TEKENING NUMMER-"M 
INKEY C;Q=2; IF?#BO02&#40=0; Q=4 











IF 4Y>190;% 


IF 4X<0; 





PEND 


PROC ZETVAR 

B=TOP+99; RESTORE 1710 

FOR G=#701 TO #712;READ Ws ?O=WiNEXT U 
FOR Q=B TO B+23;READ Ws; ?O=W/4;NEXT G 


E=B+24;N=0; D=D; !#04=B 
A=#2800; $A="" 
PEND 


PROC BEREKEN 
P‚$38';DO 
IN. "BEREKEN" 
IN."TOT "Lt 
U.F<L AND F>=8 OR LN 

P. "EVEN GEDULD" 

IsL-F 

F=B+F #24; L=BtL #24 

FOR Q=@ TO 23 

D= (L?G-F?0) 5 4D=D/ 1; C=8 

FOR WetF+24) TO (L-24) STEP 24 
C=C+13 Z=F?Qs AZ=Z4 (CAD) 
Z=4Z3W?Q=Z 

NEXT W 

NEXT & 

PEND 





“VAN » 








PROC HOOGTE 
FOR Q=8 TO 23 
P2Q=E? (9-24) 
NEXT 9 
E=P+24; N=M 
PEND 


PROC DEEL 
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1660 
1670 
1680 
1690 
1708 
1718 
1728 
1758 
1740 
1750 
1768 
1778 
1758 
1798 
1829 
1818 
1828 
185 
1848 
1858 
1868 
1870 
1880 
1892 
1908 
1918 
1920 
1932 
1948 
1958 
1968 
19708 
1982 





DO; P. 


$50 


N. "NIEUW LICHAAMSDEEL (@-11) 


U. S>= 


PEND 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PROC 


P, "LADEN" 


B AND S<12 


100,9,2,4,6,8,10,6,12,14 
100,6,16,18,100,4,20,22 
450,900,450,1509,500, 200 
508, 400, 450,500,550, 505 
GLD, 350, 500, 250, 400, 358 
S00,250,550,150,552,000 


LEES 





“;X=#2500 


N."WAT IS DE TITEL *“$X 
F=FIN $X 

F.Z=B TO GET F 

?Z=BGET FiN.Z;E=Z-1 
N={((E-B) /24) —1 

SHUT F 


PEND 
PROC SCHRIJF 
P. "SAVEN"''; X=#280505 


N."WAT IS DE TITEL "SX 
F=FOUT $X;PUT F,E 
F.Z=B TO E 


BPUT 


F,?ZiN. 


*SHUT F ô, 


PEND 


ZETMACH 
ZETVAR 


MENU 
E. 


“5 
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TITRATIE 


Na een aantal half afgemaakte probeersels tot het maken van een 
simulatie-programma, is er eindelijk eentje af. 


Voor dit programma is nodig: 
* P-Charme ROM 
* GAGS ROM 
* Geheugen van #2908 tot #4008 
* Goede schakelsoftware, zoals BRANGUART, CK, e.a. 


Ondanks het feit dat dit een scheikundige simulatie is, hoeft men 
geen scheikundige kennis te hebben om het te laten werken of om 
er iets van te begrijpen. 

Voor het begrip een korte uitleg, waarbij zo min mogelijk 
scheikundige begrippen ter sprake komen. 

Een titratie dient om een bepaling van de concentratie van een 
bepaalde stof in een oplossing uit te voeren. 

Men bepaalt in deze simulatie de zuur concentratie door er loog 
bij te druppelen.Een zuur bevat zure deeltjes,de zgn. 
waterstofionen. Deze zure deeltjes kan men met loog 
neutraliseren, en de oplossing wordt dan minder zuur. Dit drukt 
men uit in de zuurgraad of pH van de oplossing. Deze zuurgraad 
neemt waarden aan tussen B en 14. Als de zuurgraad 7.8 is dan 
noemt men de oplossing neutraal. 


PH waarde schaal: N.B.: deze schaal is logaritmisch 
1 2 3 4 5 7 8 9 18 11 12 15 14 
zeer zuur neutraal zeer basisch 


Het punt waarbij de pH 7.8 wordt noemt men het omslagpunt of 
equivalentie punt. Indien de zuurgraad groter is dan 7.@ dan 
noemt men de oplossing basisch (dit is het tegenovergestelde van 
zuur) . In de laboratorium opstelling gebruikt vaak een extra 
toegevoegde indicator stof. Deze indicator verandert van kleur op 
het omslagpunt. Dit ís ook in de simulatieopstelling te zien. 
Normaal stopt men dan op het omslagpunt met titreren en gaat men 
aan het rekenen om het gehalte aan zuur te bepalen. 

In de simulatie druppelen we gewoon door om de hele grafiek te 
krijgen. 

De standaardwaarden staan in de initialisatie procedure en kunnen 
naar wens aangepast worden. 


In dit model gebruiken we: 


Zoutzuur = HCI,een sterk zuur 

Azijnzuur= HAc,een zwak zuur 

Een combinatie van azijnzuur en zoutzuur in een 
grafiek. 


Voor mensen met scheikunde kennis, is het verhaal misschien een 
te eenvoudige voorstelling van zaken, maar het principe wordt nu 
voor meer mensen duidelijk. 

Zelf ben ik zeer geinteresseerd in simulaties op scheikundig, 
natuurkundig of biologisch gebied. Voor ideeen of programma’s of 
verbeteringen van dit programma houd ik mij dan ook ten zeerste 
aanbevolen. 


Gert Jan Noor land 


FAG. 


48 ATOM NIEUWS JIIRKRAIIE 





to 
2 
30 
40 
50 
&D 
zo 
8 
70 
100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 


FROGRAM TITRATIE 

REM&X%& TITRATIE VIG KX% 

REM X&4& AUTEUR 2 G,J.NOORLAND kkk 

REM NODIG ZIJN F-CHARME + GAGS 

REM GOEDE SCHAEELSOFT BRANQUART, CE, ENZ 

REM GEHEUGEN VAN #2F00-#6000 

REM IN DE INTIALISATIE KAN MEN HET STIMULATIE MODEL 


BASE#SO: REM BASE ADRES SPRITES/FAINTS 
DIM A40) ,„B{10} 
FDIM “MM2, AVV2: GOS, z 


REMKXK main program KkX 
CLEAR 4 

MENU 

LINKHFFES 

GOTO 150 

END 


REM & FROC'S & CREATE'S X 


ZZO2PROG OFSTELL ING, ft, H 


za 
250 
260 


270 
280 


450 
460 
470 
480 
490 
ZOO 
S10 
520 
520 
540 
550 
560 
570 
58 
5S0 
400 





REM statief 
CUBE 1,0, 5 
CUBE 1,0,50, 
REM buret 
MOVE 59, 170;DRAW 59, 70;DRAW 50,653 DRAW SO, 61 
MOVE S2,61;DRAW 52,65; DRAW 42,71: DRAW 4E, 17C 
MOVE 47,67; DRAW 55,67;MOVE 55,70; DRAW 55,64 
MOVE 24,75: DRAW 38,753MOVE 24,77; DRAM 29,77 
MOVE 40, 165; DRAW 42, 165 
REM erlenmei jer 

MOVE 46,61:;DRAW 46,57; DRAW 








„ari 


1,45,5 








DRAW &2, 28; DRAW 54,57; DRAW 54, Gls MOVE 41,42: DRAW 


PAINT BO, 41 
PAINT 80, 155,2 
PAINT 10,176,2 
FAINT 10,165,2 
PAINT 250, 125,2 
PAINT 100,55, 2 
PAINT 41,90,4 
PAINT 45,6%, 4 
P=i65;REM STARTSTAND BIRET 
MOVE 120,55 
PEND 


FROC WRITELA,X,Y, 5), IJ, E 





J=04 BESKLENCA) =1 
FOR I=X TO X+B STEF 5 
SET (API), I, (Y+6r 
Jel 
NEXT 1 
PEND 
PROC MENU 
CUBE 1,0,2,178,251, 11 
SA="TITRATIE"s;WRITE (A, 9%, 180,7} 
CUBE 1,0,2,178,82, 11: FAINTE, 179,7 
CUBE 1,0,172,178,81, 113 FAINT216, 179,7 








BORDER 


c 


3,58 DRAW 40,55: DRAW 6 





INSTELLEN 





DAE 
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&10 
&2D 
b50 
640 
650 
&&ù 
670 
480 
690 
700 
710 
720 
750 
740 
750 
760 
770 
780 
790 
BO 
B10 
B2n 


CUBE 1,0,5, 
PAINTE1, 31, 
FOR I=1 TO 5 

CUBE 1,0,80, (150-I415),90,16 

BLOCK 0,81, (151-I415),88,9 

NEXT 
CUBE 1,0,50, (150-115), 156,10 

BLOCK 0,51,131,135,9 
BLOCK O,S51, (1351-1415) ,153,9 

INV 
&A="Menu : "sWRITE(A, 55, 132,7) 

$A 1. sterk zuur";WRITE(A,B2, 117,6) 
®A: 2. zwak WRITE(A,82, 102, 6) 
3. twee zuren";WRITE(A,82,87,6) 
uzenummer: 2": WRITE(A,55,72,6) 
OP, 10,25} 5ET:ACR, 225, 25; SET: ACO, 225, 17 
aorland";WRITE(A, 10,8,6) 
imulatie";WRITE(A, 100,15, 7) 
DO KEY C:UNTIL C>48 AND C£52 

INV 
FILL #81C0,#9800,0 
CASE C OF 


1,249, 29 
CUBE 1,9,50,150, 136,10 


















B50<49> BUILDSCREEN; OPSTELLING; INV; STERK — ZUUR-PH 
840550» BUILDSCREEN:; OPSTELLING; ENV; ZWAK ZUUR FH 
850451 > BUILDSCREEN: OPSTELLING; INV; STERK ZUUR-PH; BLOCK 1,22,53,57, 


TELLING; INV: ZWAK ZUUR-PH 


260 
870 
880 
890 
Soo 
910 
920 
250 
ga 
950 
deld 
970 
gen 
990 
1000 
1010 
1020 
1050 
1040 
1050 
1060 
1070 
1080 
109) 
1100 
i110 
1120 
1130 
1140 
1150 
1160 
1170 
1186 
1190 


EEND 144; INV; OPST 


FEND 


PROC BUILDSCREEN 

BORDER , 3 

CUBE 1,0,5,1,249, 29 

CUBE 1,0,20,31,60, 147 

CUBE 1,0,8,2,110, 10 

CUBE 1,9,160,2,80, 11 

CUBE 1,0,8,18,110,10 

CUBE 1,0,1460,18,80,11 

PAINT 5,3,6:PAINT 30,16,6;:PAINT251,18,6;PAINT 4,28,6 
PAINT 251,7,6:PAINT 220,29,6; PAINT 140, 10,6 
CUBE 1,0,120,55,98, 110 

FAINT 150,60,2 

CUBE 1,0,102,28, 130, 136 
SET: VPIJL, 106, 1693 SET: pH, 112,172 
PIJL, 170,49; SET: ml,182,47;SET: loog, 200, 47 
zWRITE (A, 114,50, 5) 
"1" 4 WRITECA, 110,62,5) 
sWRITE(A, 110, 78,5) 
WRITE(A,110,94,5) 
WRITE(A, 1160, 110,5) 
WRITE (A, 110, 126,5) 
RITE(A,110,142,5) 
RITE(A, 110, 158,5) 
RITECA, 127,49, 5) 
zWRITE (A, 143,49,5) 
sWRITE(A,159,49,5) 
O's WRITE(A, 175,49, 5) 
RITE(A, 188,49, 5) 
RITE(A,204,49,5) 
ang, 48, 120 
uur, 59, 60 
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1200 $A="volume:"s;WRITE(A, 12,5, 6) 
1210 SETzml,90,10;SET: loog, 160, 16 
1220 S$A='pH :";WRITECA, 170,5, 6) 
1230 PEND 
1240 

250 PROC FIX, X,Y) 
1260 Ce 

270 FIF 
1280 FIF 
1290 FIF % 
1500 FIF 

510 STR 
1520 B7C=#D 
13530 BLOCK 1, (X=5), (Y-2), 20,8 
1340 WRITE(H,X,Y,5) 

550 PEND 
1360 

570 PROC OMSLAG-KLEUR 
1380 UNSET:DRUPFEL;PAINT 60, 27,5 
1590 FEND 
14650 
ta10 PROC INITIALISATIE 
1420 %D=i.0 REM DRUFFEL VOLUME 
1450 HVV1=50 ;REM VOLUME ZUUR 
1440 ZVV2=0 REM TOEGEVOEGD LOOGVOLUME 
1450 AMM1=0, 1: REM MOLARITEIT ZUUR 
1440 _ZMM: 1: REM MOLARITEIT LOOG 
1470 VUILKZMMI) /AMM2-LD; REM EQUIVALENTIE PLINT 
1480 -S4E-4;REM ZUURCONSTANTE 
1490 N= {(2/%D) 
1500 PEND 
1510 
1520 PROC STERE- ZUUR-PH 

530 SA="NaOH + HCI"GWRITE(A, ZG, 20,6) 7 $A="zuur: sterk";WRITE(A, 170, 20,6) 
1530 INITIALISATIE 
1550 WHILE ZVV2E #2 
15460 ZVVBELVV ZLD 
1570 ZH CAVV 1 KAMML-AVVE MM2) / (HVV L+AVUR) 
1580 FIF %M< GOTO 1600 
1590 xP=-L0G (AR) /LOG (10) 
1600 FIXCAUV2, GOD FIX (AP, 206,5) 2 DRUP (FP, 2) $ GRAFIE (AVV2, HE 
1810 WEND 

&20 _OMSLAG-KLEUR 
1830 FOURTH-PART-FH 
1640 P‚$7$787&7 
1650 FEND 
1660 
14670 FROE GRAFIC(HX,#4Y) 

7zREM X-AS 
„BREM Y-AS 

1700 FIF A(AVKZF) = UCYKLGIEGOTO 1750 
1710 PLOT7,KLKXKZFAHLZO), A AAVRLOKLGHS7) 
1720 %VeXY 
1750 FEND 
1740 
1750 FROG DRUP(:P,Z) 
17460 SET:DRUPFEL, 49,58 
1770 FOR I=t TO 15 
1780 SHOVEs DRUFPEL , 0, -1 


NEXT 
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1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1950 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
zo1ù 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
za90 
z100 
2110 
z120 
2150 
2140 
2150 
216 
2170 
2180 
2190 
2200 
220 
2220 
2250 
2240 
2250 
220 
2270 
2280 
2290 
2500 
2510 
2220 
2550 

540 
2350 
2260 
2570 
TAU 


SDUND 150,10 

UNSET: DRUPPEL. 

IF ZAN=OTHEN BLOCK1,40,P, 3, 13 P=P-1 
Zelti 
PEND 


PROC ZWAK-ZUUR-PH 
BLOCK 1,9,19,79,9 
BLOCK 1,161,19,79,9 
BA="Na0H + HAc":WRITE(A, 30, 20,6) ;$A="zuur: zwak”;WRITE(A, 170, 20,6) 
INITIALISATIE 
FIRST -PART-PH 
SECOND-PFART-FH 
THIRD-PART-PH 
FOURTH-FART-PH 
UNSET : DRUPPEL: PAINT 60, 37,5 
P‚47476757 
PEND 
PROC FIRST-PART-FH 
ZH (-AKHSOR C CLEKZED HAKAKKAMMID) /2 
KP=-LOG XM) /2, 502 
MOVE (120% (AVVZ) ) , (SEA CAE) ) 
FIX (4VV2, 60,5) 4 FIXC4P, 200, 5) ; DRUP (PZ) 3 GRAFICAW2, UP) 
FEND 


PROC SECOND=-PART-PH 








WHILE ZVV: Z 
ZWVZEKUV2+LD 
ZH= CZER CAVV LKAMMI VVD 2KLMMZ) / CAVV L4ANVDD ) / CUAUVZEAMM2) / CAVV E+AVVED) 





LP=-L0G (ZH) /2. 302 
EIXCAVVZ, GO, 5) FIX CAP, 200,5) ; DRUP(P, 2) ; GRAF IC CAVV2, ZP) 
WEND 
FEND 


PROC THIRD-PART-PH 

vpe. 5R14-0. SELOG (LK) /2. 302+0. SKLOG ( CAVV LKAMMID / CAVVL+AUV2ID /2, 502 
EIXCUVE, 60,5) FIXCAP, 200, 5); DRUP(P, ZJ 4 GRAFIC (ZWV2, ZP) 

OMSLAG-KLEUR 

FEND 





PROC FOURTH-PART-PH 
WHILE #VV2 £ EKAUVi 
HUVREANV2+LD 
LHE CAVVERZMMZ-AUVEEZMMID / CAVV1 +AVVE) 
FIF XH £=0:G0T0 2270 
O=-LOG (XH) /2. 302 
LP=14-%0 
FIXUAUV2, 60,5) FIX CAP, 200,5) ; DRUP(P, 2) ; BRAFIC(AVV2, AP) 
WEND 
PEND 











CREATE/F: t HA, HA, HA, HA, HA, HA, HA, HA 

CREATE/F: 2 #44,#11,#44, 811, #44, RI1, #44, H11 

CREATE/P:2 #10,0,#10,0,#10,0,#10, #AA 

CREATE/P: 4 HAA, #66, HAA, 56, HAA, HOG, HAA, HOG 

CREATE/P:5 #92,0,#49,0,#24,0, 859,0 . 
CREATE/F: 6 #55, #55, #55, #55, #55, #55, #55, #55 

CREATE/P:7 #FF,O,8FF,G,8FF,O, BFF, O 
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2590 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
25:50 
2540 
2530 
2560 
2570 
2580 
2590 
2600 
zelo 
2620 
2630 
2640 
2650 
2060 
2070 
2685 
2690 
2700 
2710 
2720 
2750 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
z810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
AOT 







































































































































CREATE A,0,#58, #88, #00, #FB, #88, #80, #70, 0,0,0,0,0 "OO/Ar HPA 
CREATE C,0,#70, #88, #80, HBO, HBO, #08, 870,0, 0 0,0, Os 0, O0, HAACHT" 
CREATE E‚,0,8FB, #80, HBO, HPO, HBO, HBO, BFB, O, o; „0,00, 0, O/A2CHTEN 
CREATE H‚0, #88, #85, #50, #FO, #80, #88, CEN 0, 0,0, O/Ar CHUHI 
CREATE I, 0,#70, HZO, HRO, HZO, HRO, HZO, H7O, O 20,0, 0O/A1 CHI" 
EREATE M‚ 0, HAB) #80, HBB, HOG) KAG, HDE HEEL Od OO, H/Ar EHTM 
CREATE 0,0,#70, #8B, #88, #30, #80, #88, #70, 0 

CREATE N,0,#88, #58, #88, #98, #A8, #CB, #88, 0 

CREATE R‚0,#8B, #90, HAO, #FO, #88, HSB, HFO,O,O, o, 0, Os o, O,0/Az CH YRF 
CREATE aart0s #20, #20, 420. #20, #20 HPB, 0. O0 0, O/ALCHY TE 
CREATE SPATIE, O, 040,0, 0, 0, 0,0,04,0, „Os 0 On En” li 

CREATE 7, OO, OO, OZA EH eN 
CREATE MIN, 0,0, #FB, „Fa, « „0/AzCH"— 

CREATE COLON Os Hb, #60 &60, kan, EN 0, O0, OC Aa CHU zt 
CREATE PLUS,O,0, #20, #20, #FS, #20, #20, 0,000, „OFAr CHU 
CREATE DRUPPEL ,0,0,0, 0 1 #60, BED, HEC, #60, C : 5 aloe 
CREATE DEE, Os BES HE BELBE 7,7 ZO, #FO, RO, HFO, FO, HE, HEO, BCO 
CREATE ACU, 0, 1,7,#19, 8, #F, HIE, H1F,#7C, HED, HBO, RBO, RCO, HFD, HES, HEE 
CREATE COP, #1E, #21, $SE, #50, #50, 83E, #21, HIE, 0,0, BBO, HBO, HBO, HBO, O0, O 
CREATE ONE B2O, REC, H2O, HLO, HED, Os U, Ce Os OO, CO, Oe O/AECH! A" 
CREATE TWO „0, #FO, #40, R2O, #90, HO, 0,0, 

CREATE THREE, 0, HFO,HIO, #20, BIO, #70 zn 

CREATE FOUR „0, #20, #FO, BAG, #40, 820,0, Os 00,0, 0/A: CHr ar 
CREATE FIVE „De #PD, #10, HPO, #80, FO OC, Tooren OAAr CHYSY 
CREATE 20,0, 0, 0,0, 0, 0/As CH'4' 
CREATE 1 HBO) H4O, w20 Le KEO, N Ä Ù As CHE 
CREATE EIGHT, 0, #60, BIO, HOO, BTO, HEC, 0, 00,0, OZB: CHE" 
CREATE NINE HGULBLO, HZ, HTO H6O,D, OLO, DO Or On, OO, G/A CHY RP 
CREATE ZERO ,O,#40, #40, Bao, #A0, #40,0,G,0,0 O,0,O, 0,0, O/AECHY OY 
CREATE POINT, : 2 OO OC D/A HP, 

CREATE pH, #80, #80, #E4, #94, #97, HEA, A, „0,0, #80, HOO, HBO, HEAO, HED, HBO 
CREATE ml,0,0,#8A, HAA, #DA, 2, 2,2, 0,0,0,0,0, 0, D 

CREATE loog,0,0, #98, HAS, HAT, HIG, HBO, HBO, G, 1, HCS, H2E, HEE, HIA, O, 0 
CREATE zeur 0, 4F7) HAS, #2EL HES OO, ALO, #74, #54, #56, HSE, 0 
CREATE VPIJL, #40, 840, #40, HA0, #40, HAO, BRO, RO, 0,0, OO, Os De 1,0 
EREATE HPIJL, #0, OZ, BEF, HO 0,0,0,0,0,0,0, 0,0 

CREATE a,0,#74,#88,#78,9,#70,0,0,0, 0,0, 00000, 0/ Ha 

CREATE c,0,#78, #50, #80, #80, H7B, UO, 0, Os Oe Je Ce Oe Che O/ Ar CH 
CREATE d,0,#70, #90, HGO, #90, #70, HLO, RLO, OLO, 0, 0,0, 0, Os O/AECH PH" 
CREATE e,‚0, #78, #80, #FH, #88, #70, 0, 0,0, Oe Os Oe 0 „O/Ar CHte" 
CREATE í,0, #20, #20, #20, 820,0, 820,0, 0,0,0,0, hl 
CREATE k‚0,#48, #70, #50, #48, OD, HAD, HAO, CO, 0, 

CREATE 1,0,870, #20, 820, #20, 820, #ZO, #60, 0,0, 

CREATE m,0, #48, #A8, HAB, HAS, #70, 0, 0, 0, 0 k 

CREATE 2,0, #60, #P0, #90, HOO, #60, 040,0, 0,040, 0,0, 0, O/Ar CH'o 
CREATE n,0, #90, #90, #90, HOO, HEC, 0, O0, Os 0, OD, 0 PEA Me dd 
CREATE B; #80, #80, EO, #50, 890, KEO, 0, O0,0, O0, 0 010,0, O/A:CH'p" 
CREATE r‚ù, #80, HBO, #80, BCO, HERO, 0, 0,0, 0 OO Ba CHN 
CREATE 5,0, #FO, zin #80, #78, DO, 0,0 0,0,0,0/A2 CH" a" 
CREATE t‚C,#EC, He DO, #40, BED, BAO, HAC, U, OO Os 00, Ora: CHE" 
CREATE u.0, HOB, #IO, HOO, HFO, RIO, 5: 0,0,0,0,0,0,0, 0, 0/A: EHTur 
CREATE v‚0, #20, #50, #08, #88, #08, Ù, DOO, On De D/Ar CH 
CREATE w‚0,#50, #AB, #AS, #88, HEE, 5 0,0, vo; 0,0,0,0,0/AsCH''w 
CREATE 2,0, HPB, AO, B2O, HLO, HEE, Chen On On On Oa On O/AECH" 2" 


RETUEN 
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uurke BLACK JACK meent 





Toen ik in Juli van dit jaar met mijn gezin in de USA was, hebben 
wij ondermeer een bezoek gebacht aan Las Vegas, de beroemde 
gokstad. Deze stad bestaat alleen uit casino's, wedding-schapels 
en hotels/moteis. Tijdens dit bezoek hebben wij uiteraard ook 
enige gokhallen bezocht en een klein gokje gewaagd aan een ‘slot’ 
teen eenarmige bandiet) en aan de black-jack tafel teen 
aangepaste versie van ons een en twintigen). 


Van dit BLACK-JACK heb ik nu een computer-versie gemaakt voor de 
ens atoompje. Na het opstarten van het programma wijst het spel 
zich zelf, de regels zijn hetzelfde als bij Een en Twintíigen. 
Alleen blijkt uit dit spel waarom de bank (bijna) altijd wint. 


Ik hoop niet dat u aan dit spel verslaaft zult raken, zoals 
menigeen in Las Vegas aan het echte spel wel is. 


DRAWPOKER 


Drawpoker is een gokspel dat veel wordt gespeeld in Las Vegas. De 
bedoeling is dat u een, twee, drie, vier of vijf munten (meestal 
quarters, 25 dollarcent) inzet. U begint het spel door de 
DRAW-toets in te drukken. U krijgt vijf kaarten met de rug naar u 
toe te zien. Deze worden een voor een omgedraaid. Als ze allemaal 
zijn omgedraaid moet u beslissen welke kaarten u laat staan en 
welke u wilt vervangen door een andere kaart. Dit doet u door de 
HOLD-toets die hoort bij een van de kaarten die u wilt laten 
staan in te drukken. Als u dat gedaan heeft ziet u onder deze 
kaart het woord HOLD (of HELD) verschijnen. Drukt u een tweede 
keer op dezelfde HOLD-toets dan verdwijnt dat woord weer, Heeft u 
alle kaarten die u wilt laten staan gemerkt met het woord HOLD 
‘of HELD) dan drukt u de DRAW-toets in. Op de niet-gemerkte 
kaarten worden andere gelegd en omgedraaid. U kunt natuurlijk ook 
geen enkele kaart laten staan door meteen op de DRAW-toets te 
drukken. Nu kijkt het gokmachien of uw kaarten winnende kaarten 
zijn. Zo nee, dan bent u uw geld kwijt. Zo ja,dan krijgt u een 
aantal munten uitgekeerd. Dit aantal is minimaal gelijk aan uw 
inzet. 


Deze Drawpoker werkt bijna hetzelfde. Omdat onze Atom niet is 
uitgerust met een inwerpgleuf voor kwartjes (het meine in ieder 
geval niet), heb ik het inzetten iets anders moeten maken, Als u 
het programma start ziet u een paar rechthoekjes en vierkantjes 
op het scherm verschijnen. Als het programma stopt met tekenen 
dan is de tijd gekomen om uw inzet te bepalen. Dit doet u door 
zoveel keren als u munten in wilt zetten op een (alfanumerieke) 
toets te drukken. Als u op de spatiebalk drukt of u hebt de 
maximum inzet van vijf munten bereikt, dan begint het spel (zie 
hootdstukje hiervoor}. De HOLD-toetsen zijn de toetsen 1,2,3,4 en 
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5. De DRAW-toets is de spatiebalk. 

U heeft een beginkapitaal van 28 munten en 8 punten. Elke keer 
als u iets wint wordt dat bij het aantal munten en uw punten 
opgeteld. Als u munten inzet wordt dat niet van uw punten 
afgetrokken. Als u wint ziet u het woord WIN knipperen, als u 
niet wint ziet wu SORRY staan. Nu moet u weer inzetten. Wilt 
hetzelfde inzetten als de vorige keer dan drukt u op de 
spatiebalk. Zo niet dan drukt u weer een aantal keren op een 
andere toets dan de spatiebalk. Als u geen munten meer heeft dan 
is uw uiteindelijke score in de rechterbovenhoek te zien en het 
spel is afgelopen. In de linkerbovenhoek ziet u het aantal munten 
dat u nog heeft, tussen dit en de score ziet wu hoeveel munten u 
heeft ingezet en daaronder het aantaì munten dat u wint. 


Het aantal munten dat u kunt winen is afhankelijk van uw inzet en 
uw kaarten. 


Een paar: 
Twee boeren (9), twee vrouwen (@), twee heren (H) of twee azen 
(A) „ 


Twee paar 
Drie dezelfde 

Straat: 

Opeenvolgende kaarten, hoeven niet dezelfde kleur te hebben. 
Grote straat: 

Straat van 18 tot en met AAS 
Flush:Alle kaarten met dezelfde kieur. 
Full house: 

Een paar en drie dezelfde kaarten 

Vier dezelfde kaarten 

Straat-Flush: 

Straat in een kleur. 

Grote straat-Flush 

Grote straat in een kleur. 


Etienne Thijsse 
Albert Verweystraat 20 
Alphen afd rijn 
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IG BENNY 


tof: m'n computer is bij de tijd) 


Na het inbouwen van big benny krijgen we, wanneer de computer aan staat, de beschikking 
aver de momentele tijd, de datum, en de weekdag, die we met behulp van een statement 
(onder P-charme, of SOS) of een LINK naar een bepaald adres kunnen oproepen. 

Het grote voordeeì van big benny ligt hierin, dat de tijd doorloopt, wanneer de computer 
uit staat. Er is nl. een mogelijkheid om een batterijtje (of accu) aan te sluiten. Dus: 
battery back-up: altyd de juiste tyd, datum, en dag beschikbaar (zolang er nog spanning 
over de battery staat. en dat ís erg lang) 


Hoe gaat het praktisch 2? 





Zoais al gezegd is, is big benny een klein printje, met een klok IC, en een PIA (een 1/0 
IC, vergelijkbaar met de VIA). 

Het klok IC is van het type MSM 5832, en wordt door de club bijhet printje geleverd. De- 
PIA, en wat klein materiaal, is in de meeste electronica zaken verkrijgbaar. Het in elkaar 
solderen van het geheel is niet erg moeilijk. Wanneer u het toch niet aandurft is er vast 
in uw regio wel iemand die beter ‘soldeervaardig’ is. 

Wanneer het geheel in elkaar zit, kan Big Benny z’n plaatsje op PLê (Deze connector zit 
aande soldeerzijde van de computerprint, rechts boven het toetesenbord) krijgen. De 
soldeerzijde van Big Benny naar boven 


Hoe laat is het 2? 


Een gezegde uit de computerwereld luidt "HARDware kan NIETS zonder SOFTware”, Dit is ook, 
van toepassing op onze Big Benny. Er zal dus ergens sen klein programmatje moeten komen, 
dat de klok kan uitlezen, en gelijkzetten. 

Het is erg makkelijk om dit programma'tje op de geheugenkaart, of schakelkaart, onder 
Battery Back Up te zetten, zodat dit altijd beschikbaar is. Bij het gebruik van P-charme 

of een 508 kunnen voor de besturing van Big Benny een aantal statements maken (TIME, DATE, 
DAY), Bij een systeem zonder 505 of P-CHARME [wie heeft dit eigenlijk nog?lkan het 
programmatie ‘aan geLINKed' worden, waarna de tijd, datum, of dag in de string buffer komt 

te staan. 


Software 

De software is reeds eerder in (toen) Acorn Nieuws verschenen, en wel in no.4 van 1983. 

Het lijkt mij zinvol deze software nogmaals te publiceren, en dan in een versie als 
statement, en in een versie voor de systemen zonder P-CHARME, af SOS, 

Hoe moet het 1 ? (bij statements) 

Heel makkelijk. anneer de statements TIME, DATE, en DAY door het systeem herkend worden, 





tijd, datum, of dag zetten: bijv. 
TIME="89:30", DATE="16-89-85", DAY=z"1" (Days®: zondag) 
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Tijd, datum, of dag lezen: bijv. 

TIME$A : zet de tijd in $A 

TIME : drukt de tijd af (gaat verder als print statement) 
TIME" : drukt tijd af, en slaat 2 regels over, 


Hoe moet het 2 7 (bij losse routine) 


Om de klok gelijk te zetten (schrijven dus) moet de accumulator gelijk zijn aan #48, om te 
lezen moet A geijk zijn aan #66, 

Verder moet voorde tydhet X register #56 zijn, voor de datum: x=#80, en voor de dag 
xef60. 

De informatie komt (bij lezen) terecht in de stringbuffer op #449, om te schrijven moet de 
deata ook op #149 staan. 

Een voorbeeld: 

Gelijkzetten op 11:68, maandag 16 sept 1985 

A=W40;X=R50;SH L40="11:00°;LINK Hyyyy 

06;SH140=" 16-09-B5";LINK Hyyyy 

A=RAO;K=HEOSNLAG=" E"5LINK Hyyyy 

waarbij yyyy staat voor het startadres van de routine. 








De tijd lezen: 


A=W3B;x=H5EGLINK Hyyyy;P.bH140 
en de tijd verschijnt!, 


Verdere mogelijkheden: 


Er is ook een mogelijkheid om Big Benny een interrupt te laten genereren (iedere seconde, 
minuut, of uur}, Hiermee is ook heel wat interessants te doen (bijv. een wekker programma) 
Zie hiervoor Acorn nieuws no. 1, 1984; pag.86 


Op het printje zijn nog 6 PIA 1/0 poorten over. Hiermee kunnen verschillende dingen 
geschakeld worden (bijv, de minischakelkaart, of andere bank-switchingen in de computer) 


Al met al is Big Benny dus een leuke uitbreiding van de computer, Je blijft er mee bij de 
tijd! 

Succes met het bouwen! Ten overvloedde vermeld ik hier nog even de componentenwaaden (De 
nummers refereren aan de printopdruk) [de complete bouwbeschrijving is te vinden op pag. 
45 van Acorn Nieuws Augustus 1983.1 


R1...14 : 18 K 

R 15 3 K 

R 16 1 568 ……. IK2 Lafhankeijk v.d. laadstroom) 
R 17 zat K 

EC 1 : Trimmer 22 pF 

C 2 : Spé ‘Zie opmerking 

C 3,4 1 1 uF (tantaal elco 18 WV) 

T 1,2 1 BC 547 

T3 + BC 557 

D : AA 119 

IC 1 z 6821 CPIA) 

IC 2 z MSM 5832 RS 

X 1 Kristal 32,768 KHz (uit bijv. oud Kwarts herloge) 


OPMERKING : Wanneer de klok niet gelijklopend te krijgen is, dan C2 (Spé) vervangen 
door 22pF, dan is het regelbersik van de trimmer grater, en zal de klok WEL gelijklopend 
te krijgen zijn. 


Rudi van Drunen. 
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18 PROGRAM TIME 

28 REM big benny CONTROL 

53 

68 DIM LLI5;F.I=8 TO 15;LLI=-ijN, 

?5 P.$12;IN. "“ROUTINE OP" Á 

80 PRINT $21;P=A;GOSUB h 

98 PRINT $6 ;P=A;GOSUB b 

95 @=0;P. "AANROEPEN MET LINK #* A 

176 END 

188 

190bB=#B400 
208: 
218 STARBU; STXHB 1 
220:LL2 LDAER4G ; STARS; LDAEKD 1; STAHS3 
230:1L3 LDA B+1;PHA;sLDA B+35PHA;LDYEHGS 
246 STY B+3;LDA B+2;O0RAEKCB;STA B+2;LDXERO4 
258 STX B+3;LDA B+2;ANDEHIF; STA B+2;PHA 
260 LDA@HIA;STA B+3;STY B+1isLDAERFF;BITHS8 
279 BPL LL4;LDAE#FG 
286:LL4 STA B;STX Bt 1 
2PB:LL5 LDACHS2) „Ys ANDEHSF ; ORAHB 1 ;LDXH8 1 ; CPXEKSG 
300 BNELL6;ORAEHGB8 
310:LLé STA B;PLA;PHA;ORA#88; STA B+2 
328 LDA B;ANDEHGF ; ORAEH3B ;CPXENSO;BEQ LL? 
339 CPX@#SO;BNE LLS 
348:LL7 ANDEHF3 
358:LL8 STAC#S2) ,Y;PLA;PHA;STA B+2; SEC 
368 TXA;SBCER10 ;STAHBL ; INY ;LDX@#3A 
378 CMPE#SG ;BEGLL 12;BCCLL? ;ADCEHIF ; LDXEH2D 
388 :LLICPYERB2;BEGLL 1A;CPYEROS;BNELL 11 
398 :LL18STAHSI;TXAG STACHS2) ‚Y; INY 

408 :L1 11CPYEHOB ; BNELLS 
418:LL12LDAEHFF; STA B;PLA; 2RARHBB,STA B+2 
428 PLA;ORAEH3S;STA B+3;PLA;STA Bt i 
438 LDAEKBD;STACHS2) „Y;RTS 
StAI;R. 


Literatuur: 


1, Datasheet MSM5832 Drukwerkarchief, regio 2?) 
2. Datasheet 6821 _ (Drukwerkarchief, regio 2?) 
3. ACORN NIEUWS irg.2, No.4 CAug. 1983) 

4. ACORN NIEUWS jr9.3: No.1 CMaart 1984) 
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18 PROGRAM TIME 

28 REM TIME,DATE,DAY 

38 REM STATEMENTS FOR USE 

48 REM WITH p=charme OR sos 

58 

$@ DIM LL15;F.I=8 TO 15;LLi==1jN. 

PA DIM DDC 1) ;DD8=-1 

88 PRINT $21;P=4;GOSUB b 

28 PRINT $ó ;P=A;GOSUB b 

198 ST="TIME";T=T+LEN(T) 

118 PT=DD8/2561 #88; TP I=DDOH256; T=T+2 

128 $T="DATE";T=T+LEN(T) 

138 ?T=(DD8+3) /256: HBBITP 1E (DDE+I A26; T=T+2 
148 $T="DAY";T=T+LEN(T) 

158 ?T=(DD8+6)/2561HB8GTP 1=(DDRH5)A256; TP 2=HBE;T=T+ 2 
168 A=P;T! 12A 

178 END 

188 

194bB=#B400 
26ar 
220:LL2 LDAEH4 ; STARS; LDAEHB 1 ; STAHSS 
238:LL3 LDA B+1;PHA;LDA B+3; PHA;LDYE#08 
246 STY 8+3;LDA B+2;0RABHCO;STA B+2;LDXEHed 
259 STX B+3;LDA B+2;AND@#3F;STA B+2;PHA 
268 LDAEN3A;STA B+3;STY B+1;LDA@HFF;GIT#80 
278 BPL LL4;LDA@HFO 
280:LL4 STA Bj;STX B+1 
296:LL5 LDAC852) ‚Y;ANDEHOF ; ORARB 1; LDXHB 1 ; CPX@EHSO 
388 BNELLÁ;ORAEHGS 
318:LL& STA B;PLA;PHA;ORAHSA;G STA B4+2 
328 LDA B;ANDE@HAF ;ORA@#H30 ; CPX@HBA;BEG LL? 
328 CPX@HSO;BNE LLS 
348:LL? ANDEHF3 
350:LL8 STACHS2) ,Y;PLA;PHA;STA B+2;SEC 
368 TXA;SBCEH10;STAHBI ; INY ;LDX@#3A 
378 CMP@#5O ;BEQLL 12;5BCCLL? ;ADCEHIF ;LOXEHZD 
S8B:LLPCPYCHOZ;BEGLL 18; CPY@#BS;BNELL tf 
LI8ETAHBI; TAG STACHS2) „Vs INY 
LILEPYRHB8; BNELLS 
418:LL12LDAEHFF; STA B;PLA;ORAEHBO;STA B+2 
420 PLA;ORABEH3B;STA B+3;PLA;STA B+1 
438 LDARHGD;STACHS2) „V;RTS 
440:DD8 LDX@HSO;BIT #8AZ 
450 BIT#SGA2;STXHS1;LDAEHSO; STAHBOGJSR HF2P1 
468 CMP@HID;BER LLIS;CMPER24GENE LL14;JSR #C78B 
478 JSR #C3CB 
48B:LL13 JSR HCIE4IJSR LL3; JMP #C5SE 
L14 DECHB3;JSR LL2; JMP #C3PC 
598:LL15 JSR HCEBI;LSRHEGGBNE LL13 
51BÌ;sR. 
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SALFAA QUICK REFERENCE CARD (g- j-noor land) 


COMMANDO” 5: 


ASM-Cbeginletter BC IS UV > 

PASS <cijfer O 1 2 > 

CALL Cadres> werkt als LINK in BASIC. 
Kletter> rest comaentaar tot '}’ 

\ coamentaar tot CR of ’;* 


ASM-B ; syabolentabel op #8206 variabele 5 
objectcode pointer #9000 variabele P 
geheugenpointer #0000 variabele O 
nieuwe breakhandler gezet,oude bewaard 

ASM-C : nieuwe breakhandier gezet,oude bewaard. 

ABH-I : zie ASM-B‚nu scherm uit 

ASM-S : geeft de syabolentabel, ook .S 

ASM-U : sarteert de symboltentabel, ook „U 

ASM-V : SALFAA versie no. afgedrukt, ook „Vv 

DIRECTIVES 


{max,2b,elke letter eenmaal) 


„ASCII\string\,bytel,byte2,enz. Deze worden achtereenvolgens gepoked. 


„BYTE leest een of meer expressies,plaatst laagste bytes ervan in geheugen, ook 
strings. 

‚CODE leest adres en plaatst dit in PF, assenbleer adres. 
DBYTE plaatst 2 bytes adres in geheugen, eerst highbyte dan lonbyte. 
‚END printer uit, scherm aan, naar BASIC-mode, 
„FIRST forceert listing bij PASS 0, 
‚ HARD tijdens PASS 1 de printer aan, eventueel <SHIFT> voor vervolg listing. 
IF te vergelijken met IF in BASIC, maar zonder THEN. 
‚LIST aarmaal beide PAS5es niet gelist, nu bij PASS 1 scherd aan. 
„NEWLINE gevolgd daor 1 byte expressie, geeft evenzo vele linefeeds in de listing. 
„OPTION beinvloed & hoogste bits van de PROCESSORSTATUS byte. 
„PRINT leest een of meer expressies. Tijdens PASS 1 naar printer, schera uit. 
‚RAN leest adres in en plaatst dit in variabele 0. 
„SYMBOL geeft synbolentabel, Stop en start met <REPT>. 
„TABLE teest beginadres en/of eindadres van de tabel in. 
„UNRAVEL sorteert de symbolentabel. 
„VERSION drukt SALFAA versie nummer af, 
„WORD plaatst twee bytes adres in geheugen, low byte eerst. 
„X reset niet beginadres tabel, naar initieert deze juist, 

SYMBOLEN: 

Definieert aen net: dubbele puntínaam> ‚dus : SYMBOOLNAAM 

kleine en hoofdletters toegestaan. Max. 26 letters + de quote”), 


DOS EN COS COMMANDOS: ( alleen de & commando's ) 


PROCESSORSTATUS BYTE: 


N.B. 
tellen. 


BIT 0 1 

o eerste laatste PASS 

1 we} niet wegschrijven 

2 bed ARX gereserveerd 

3 - =S eeeeeen 

4 64+ 52 karakters 

5 geen wel pagecrossing melding 
& wel geen P=-CHARME aanwezig 

7 - eoeeeen 


1 bij immedidiate adressing mag aen binair invoeren, waarbij spaties niet 
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GAGS QUICK REFERENCE CARD tg. j-noorland} 
INFUT STATEMENTS: 


JOYSTK A,B,C 
AT KEY (A,B,C,.....)(a,bye, seo.) 


GRAPHIE DESIGN SUPPORT: 


INV 

BORDER x,y 

PRINT x,y. p=nummer kleurpatroon 

CREATE/P:p al,a2,a3,a4,a5,a6,a7,a8 

CUBE p‚m‚x,y‚b,h p zie en mzie kt 

EERCLE p‚x‚yor p zie & 

PIXEL a,b,z zet pixel is set en z=0 unset 

WINDOW m‚x,y,beh m=l binnen en a=2 buiten raam tekenen 
HOFF 

FILL a‚b,x x is waarde gevuld in adres & tot b 


SNOW en NOSNOW 
SCROLL Utp); SCROLL Dfown); SCROLL R(ight); SCROLL Lieft) 


HLINE p‚xl,yl,x2,y2, 1, f, A.B p zie &, l x=coordinaat eindpixel komt in A 
VLINE p‚xl,yl,x2,y2.l,f, A.B in B komt y-coordinaat eindpixel 

PAUSE a pauze van 1/60 seconde 

INK a 

PAPER a 

MODE a 

BLOCK mex,y‚b,h m zie kt 

SOUND p‚d p=pitch 1X=pí=255; deduur 


GAMES SUPPORT: 





CREATE <name>,al,a2,. eener alb 

CREATE <name>,al,a2,. vere säld 

DEF {name>, 0600000000000000 

DEF: 1110000000011 11 

nog é maal 

BASE q g=high byte van opslag create’s 
ASSIGN Cname>,‚a nummer a bij sprite {names 
DEASS <name> 

KILL <name> of KILL a 

BET: name>,x,y of SET a,x,y 

UNSET: {name> of UNSET a 

IMAGE: Cname>, x,y of IMAGE a,x,y 

TURN: £name > of TURN a 


CARRY: (names, x,y of CARRY a,x,y 
SHOVE: <name>,dx,dy of SHOVE a,dx,dy 


PDS: <name>,X,Y of FOS a,X,Y 

ATHIT: {namet>,s{name2}; of ATHIT:{ínamei>,b; 

ATHIT a, {name2>: of ATHIT a,b; 

tk m=0 tekent altijd k p=0 reset pixel 
m=t tekent tot pixel set p=l set pixeì 
m=2 begint als pixel geset is p=? invert pixel 


m=5 tekent tot en start weer bij e.v. set pixel 
m=â begint bij set pixel en stopt bij volgende 
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PRCODE statement 


Met behulp van dit statement kan ieder soort data naar de printer 
gestuurt worden, zelfs 2,3 en code (?#$FE) . 

Gebruik: PRCODE 27,45,1 of PRCODE 27,3,2,18 of code=18;5PRCODE 
27,code enz. 

Enkele bijzonderheden van het programma: 

*Er wordt gekeken of de printer al aan stond, zoniet dan wordt na 
de verzonde data de printer weer uitgezet, zoja dan blijft de 
printer aan. 

*De BRK-vector wordt verzet: evt, foutmeldingen worden niet naar 
de printer verzonden en de al verzonden codes worden zo veel 
moglijk weggehaald. 

*Let op het JMP adres naar de PCHARME, deze maakt het mogelijk 
ook exvar variabelen te gebruiken. 


Veel plezier met uw printer, 
Marcel Wagenaar 


10 PROGRAM STAT. PRCODE 
20 PRINT $21;P=A; GOSUB a 
30 P=A;GOSUB a;PRINT <06 
4D ST="PRCODE"; T=T+L.T 
50 T?B=start/256! #80 

















69 TPi=start%256 
70 T?2=#80; T=T+2 
35 A=P;T!i=Â 
98 END 
180 
118ar 
128.TA #9400 
TAT =#05 
TAT INDEX =#B5 
158: PCR =#+B80C 
ESTBYTE =#40 
TAPEL =#61 
EER =#63 
190: BRKVEC =#202 
209 
210: SPATIE =#20 
=#2C 
=#5B 
=#0D 
=#C5SS8 
=8$FEFB 
280: HAALDATA =#C78B 
PRINGKOMMA =#C231 
RINT =tFFOB 
318: PCHARME =#ABDS 
328 
350 
340 \VERZET BRK-VECTOR: FOUT WORDT 
350 \NIET OP DE PRINTER AFGEDRUKT 
360:start JSR init Ninitieliseer controlebyte ‘s 


370 \TEST OF DE PRINTER 
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380 

35,0 

408 

412 

420 

450 

440 

4508 

4608 

478: kring 
488 

490 

508 

518 

520 

558: puntkom 
540 

550 

540 

578 

580 

5,@ 

&88 

&18 

620 

630 

640 

£50 

£68 

672 

482 

690: terug 
788 

718 

728 

750 

740 
735@:basic 
768 

778 

780 

790: drukaf 
800 

B12 

820 

350 

8342 

850: fout 
360 
870:delete 
882 

898 

200 

918 

920 

30 

940 

950: brek 
60 


LDA 
AND 
BNE 
LDA 
STA 
JSR 


JSR 
STY 
CMP 
BNE 
INY 
BNE 
CMP 
BEG 
CMP 
BEQ 
JSR 
LDX 
STX 
LDA 
ORA 
DRA 
BNE 
LDA 
INC 
JSR 
JMP 


JSR 
LDA 
CMP 
BNE 
LDA 
JSR 
JMP 


PHa 
JMP 


DX 
LDA 
JSR 
DEX 
BNE 
LDA 
PHA 
PHA 


PLA 
PLA 


PER 
e#DE 
kring 
e#D2 
TESTBYTE 
DRUKAF 


bianca 
STAT INDEX 
@KOMMA 
puntkom 


kring 
@PUNTKOM 
terug 
BCR 
terug 
HAALDATA 
e#55 

#54 

#25 

#54 

#45 

fout 

#16 

KEER 
drukaf 
kring 


herbrk 
TESTBYTE 
e#D2 
basic 
@RBS 
DRUKAF 
BASIC 


PRINT 


KEER 
e#7F 
DRUKAF 


delete 
107 





\STANBY-/0F AAN STAAT 

\laadt controle byte 

\uitkomst nul? (=printer uit) 
\nee,vervolg met eigenlijke rout, 
\ja ‚zet hem aan 

\set testbyte 

\met accu=?2 gelijk aan print $2 


\EIGENLIJKE ROUTINE 
\negeer spaties 
\bewaar positie 

\is het een komma 7 
\nee,test voor puntkomma 
\y=y+1 

\vervolg zoeken 

\is het een puntkomma 7 
\jea,terug naar basic 
\is het einde van de regel 7? 
\ja,terug naar basic 
\haal de waarde op 
\reset stack index 

\is de 

\waarde 

\groter 

\dan 255 7 

\ja, foutmelding 

\laadt waarde 
\aantal=zaantal+i 

\stuur hem naar printer 
\begin opnieuw 


\herstel brk-vector 
\iaadt controlebyte 
\stond printer aan 7 
\ja,spring naar basic 
\ 

\zet de printer uit 


\AFDRUK ROUTINE 


\NUMMER TE GROOT 

\voor synchronisatie: 
\verwijder aì verzonden code's 
\laadt het aantal 

\laadt delete karakter 

\stuur hem naar printer 

\alle code's uitgewist 7 

\nee herhaal 

"number too large” 


\FOUT OPVANG ROUTINE 
\zet stack 
\goed 


PRCODE STATEMENT 
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978 

988 

9,0 

1800 

1812 

1020: vervolg 
1838 

1848 

1952 

1860 

1878 

1088 

1099 

1188: herhaal 
1118:blanco 
1128 

1158 

1148 

115@ 

116@: init 
1178 

1180 

1190 

1208 

1218 

1222 

1238 

1248 

1258 

1268 

1270 

1280 

1298 

1508 

1312: herbrk 
1320 

1350 

1340 

1558 

13681 

1378 RETURN 


EMP 
BNE 
PHA 
PHA 
JMP 
PHA 
PHA 
LDA 
JSR 
JSR 
JMP 


INY 
LDA 
CMP 
BEG 
RTS 


LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


LDA 
STA 
LDA 
STA 
RTS 


a29 
vervolg 


PCHARME 


@#03 
DRUKAF 
herbrk 
(BRKVEC) 


(STAT) ‚Y 
@SPATIE 
her haal 


e@+oa 
TESTBYTE 
KEER 
BRKVEC 
STAPEL 
BRKVEC+1 
STAPEL+1 
@brk1256 
BRKVEC 
Sbrk/256 
BRKVEC+1 


STAPEL 
BRKVEC 
STAPEL +1 
BRKVEC+1 


\is het misschien een muvar ? 
\nee,‚ga door met normale afwerking 
\ga maar 

\kijken of het 

\een muvar is 

N\foutnummer 

\op stack 

\zet eerst 

\de printer uit 

\herstel brk=-vector 

\spring naar oude brk-handler 


\NEGEER SPATIE'S 


\laadt statement plaats 
\is het een spatie 7 
\ja,zoek volgende spatie 


\reset 
\controlebyte 
\en aantal, 
\zet 

\oude 
\brkevector 
\weg , 
\installeer 
\de 

\nieuwe 
\brk-vector 


\HERSTEL BRK-VECTOR ROUTINE 
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De LINE funktie 

De oorsprong van deze funktie komt uit de COMBOX van Bram Poot. 
Mijn dank hiervoor. Ik heb het statement omgebouwd tot een 
funktie. Met funkties kun je immers meer doen. 


Deze funktie moet als volgt gebruikt worden: 
PRINT LINE 120 drukt de waarde van de geheugenplaats af waar 
regel 128 begint. 





B neemt de waarde aan van de geheugenplaats waar 
regel 120 begint. 

Dit laatste is handig bij bijvoorbeeld het HEX statement, helaas 
pakt de PCHARME HEX LINE 120 niet, hiervoor moeten we hem 
wijzigen ( A=128;HEX A gaat wel >. 


Het programma gebruikt MINIAS bij het uitwerken van de assembler, 
eventueel de namen omwerken tot gewone labels. 


Veel succes. 
Marcel Wagenaar 


18 PROGRAM LINE-FUN 

20 REM STATEMENT VAN BRAM POOT OMGEWERKT TOT FUNKTIE 
39 REM Marcel Wagenaar 

48 REM REGIO ROTTERDAM 

58 PRINT $21 

&@ P=A;GOSUB a 

70 ?#EG=0 

85 P=A;GOSUB a 

20 PRINT $6 

108 IF ?#E8 THEN PRINT "OUT OF RANGE"; END 
119 ST="LINE"; T=T+LEN(T) 

128 ?T=start/256: #88 

150 T?1i=start%256; T?2=480 

148 T=T+23A=P; TI 1=A 


150 END 

168 

178al 

18D.TA #9408 
=BEEEA 
=#tFFED 


F7F1 





290:start 

305 JSR LEESEXPR 

318 JSR initiaal 

32e DEY 

358 

340: zoekregel 

358 JSR pasvecaan 
34a8 INY 

370 LDA (STACK) ,Y 


LINE FUNCTIE 
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384 BMI berk 

398 INY 

408 CMP #24,X 

418 BNE zoekregel 
42B LDA (STACK) ,Y 
458 CMP #IS,X 

440 BNE zoekregel 
450 LDA STACK 

468 STA #52 

478 LDA STACK+1 
488 STA #53 

498 DEC #04 

508 LDY @#52 

SIB JMP VERHUIS 
520 

530: initiaal 

540 LDA TP 

558 STA STACK+1 
50 LDY €#08 

575 STY STACK 

588 STY #13 

590 STY #15 

&00 STY #14 

&18 RTS 

620 

630: pasvecaan 

&4B INY 

658 LDA (STACK) ,Y 
668 CMP @CR 

670 BNE pasvecaan 
688 CPY #13 

&9B BCC herschrijfveci 
708 STY #13 

718 

720: herschrijfvecl 
75@ INC #14 

740 BNE herschrijfvec2 
750 INC #15 

760 

770: herschrijfvec2 
788 TYA 

790 CLC 

888 ADC STACK 

818 STA STACK 

820 BCC herschrijfvec5 
838 INC STACK+1 
848 

850: herschrijfvecs 
868 LDY e#2@ 

870 RTS 

880 

890: brk 

08 LDA @127 

S18 PHA 

928 PHA 

F38 JMPRABDS 

940) 

SSA RETURN 
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Een extra label: 






Wel eens gehoord van fouten in een interpreter? Waarschijnlijk 
wel, daar dit nog wel eens voorkomt in andere computers, en dit 
regelmatig in de diverse bladen vermeld staat. 

Bekruipt u al een onbehagelijk gevoel, dat deze kopreget ook van 
toepassing is op onze ACORN ATOM? 

U heeft het goed gevoeld, het gaat over een kleine schoonheids- 
fout in onze basic interpreter. Toch is deze fout niet merkbaar 
en kan men er zelfs (in bepaalde omstandigheden) goed gebruik van 
maken. 

Voor de acornnisten onder ons die weinig van machine taal weten 
eerst een kleine uiteenzetting, over vergelijken in deze taal. 


Een programma voorbeeld: 


C52E CMP@E#GL 
CS2E BCC #C4F7 
C530 SBC@e#61 
C532 CMP@HIB 
C534 BCS #CAFG 
C536 INY 

C557 ASL 

C538 TAX 


Dit is tevens het stukje waar het over gaat, en waar ook de fout 
in zit. 

Het betreffende stukje is te vinden in ATOM-WARE deel 1 blz 63. 
Dit kleine beetje machinecode behandelt het uitzoeken van het 
getal wat in de accu staat, cf het tot de labels hoort of niet. 


Nu dezelfde instrukties met commentaar: 


CMP@#61 vergelijk met le waarde label (label a); 

BCC spring weg indien waarde kleiner is, wanneer niet ge- 
sprongen wordt is de carry geset; 

SBC@#61 trek de beginwaarde eraf, zodat bij label a ® over is, 
bij tabel b 1 over is, enz.; 

CMP@HIB vergelijk met maximaal getal, dit is het aantal labels; 

BCS spring weg indien waarde groter of gelijk is. 


De rest wordt uitgevoerd als de test geslaagd is. 
Waar zit nu de fout? De fout is dat het alfabet 26 letters jang 
is, of dit nu gewone karakters zijn of geinverteerde. 

Het getal #iB geeft 27 karakters, dus 1s er nog een label dat 
door de test komt, en wel de geinverteerde haak #{", 

Dit feit wordt niet aïleen hier uitgevoerd, maar ook in de andere 
routines. 

Bijvoorbeeld de routine die een label moet opzoeken bij de start 
van een programma, en als het labe} nog niet geweest (bekend) is. 


De fout is dus niet zo ernstig als u wel dacht bij de start van 
dit verhaal. 

Wie heeft er nu ooit geprobeerd om de geiïinverteerde haak als 
labeì te gebruiken? Niemand toch 
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We kunnen zeìfs van dit ‘foutje’ profiteren en het extra label 
gebruiken in programma's. 
Daar dit niet zomaar gaat, zal ík nog een kieine uitleg geven. 


Wanneer de basic ‘runt’ en hij komt ons labeì tegen in een GOTO 
of een GOSUB, wordt er eerst gekeken of ons label bekend is, 

Is het label aì gepasseerd, dan is ook het sprong adres bekend. 
Stel nu dat dit het geval is, dan gaat het zondermeer goed. Is 
dit niet het geval, en dit komt vaker voor dan andersom, dan 
wordt het label opgezocht (zie atom-ware blz 86). 

Niets aan de hand zult u zeggen, juist, maar zo werkt het niet. 
Wanneer u de eerste keer ‘runt’ worden alle label bewaar- 
adressen op ® gezet. Daar u wel eens iets in het programma hebt 
kunnen wijzigen, zouden alle label-adressen niet meer kloppen. 


Dit op @ resetten heeft nog een andere bedoeling, en wel het 
testen OF er al een adres in staat, Dus of het label al gepas- 
seerd is, weet u nog wel (zie atom-ware blz 85 onderaan). 

Dit is de bedoeling van de ORA instruktie, en u voelt het al 
aankomen: bij ons label is er niets op @ gezet, en staat er dus 
‘iets’ in. Dus wordt ons label niet opgezocht tijdens de test en 
wordt tijdens het programma bij aanroep van het label ergens heen 
gesprongen waar GEEN basic is, met als gevolg een “hangende 
atom’. 

Dit nu is gemakkelijk te verhelpen door in ons bewaaradres een @ 
te poken, en dit zijn de eerste twee adressen na de officiele 
label adressen (zie atom-ware blz 45 en 46), 

Nu ziet u dat dit de adressen #3C1 en #3C2 zijn, maar die worden 
al gebruikt bij het tekenen, zodat ons label alleen te gebruiken 
is als er niet geplot wordt. 


Tot slot nog een klein ‘demootje’ om een en ander uit te testen. 


18 REM LABEL TEST 


20 '#3Ci=0 Dewaaradres label, op nul 
30 GOSUB £ spring naar subroutine 
40 END einde programma 

59 REM —---—mern 

68 PRINT“TEST OK” 

70 RETURN 


Dit i& uiteraard ook met GOTO van toepassing. 


DICK PROTZMAN 
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Xr MEER-KOLOMS DISASSEMBLER #xx 





Vooral bij lange disassembler-listings is het gewenst om meerdere 
kolommen naast elkaar af te kunnen drukken. 

Dit bevordert de overzichtelijkheid, het spaart papier en de 
printer kan de listing sneller afdrukken. 

Om de kolombreedte te beperken wordt niet de hexadicimale inhoud 
van de geheugenplaatsen afgedrukt. Dit gebeurt echter wel bij 
niet bestaande instructies (727). 

Ligt ín het laatste geval de inhoud tussen #20 en #80, dan wordt 
tevens de bijbehorende ASCII-code afgedrukt. 

Dit kan makkelijk zijn om verborgen data-tabellen te herkennen. 
Door op deze manier te werk te gaan blijft de langste instructie 
beperkt to 16 karakters, zodat op een B80-koloms printer 4 
kelommen naast elkaar afgdrukt kunnen worden. 

Het een en ander kan verduidelijkt worden met het volgende 
voorbeeld: een stukje disassembler-listing van het begin van de 
JOSBOX in 3 kolommen. 


ADBB RTI AUDé DEY AUBC BMI #A024 
AD@1 222 #BF ADD7 INX ABBE CMP (#05) ‚y 

AQ@2 LDX @FF ABB8 INY ABI@ BEG #A027 

ADB4 LDY #5E AUDI LDA HAOS2,X AU12 DEX 

Het aantal regels bepaalt de lengte van een bladzijde: na dat 


aantal volgt een FORM-FEED ($12), Wil men de kantlijn niet naar 
vechts verschuiven, dan een @ intoetsen. De minimale kolombreedte 
bedraagt 17. Als men steeds gebruik maakt van dezelfde lay-out is 
het misschien handiger om in de regels 420 t/m 450 vaste waarden 
te programmeren. 

Het belangrijkste gedeelte va het programma is de subroutine LLG 
die gedeeltelijk overgenomen is uit de JOSBOX, Deze subroutine 
disassembleert de instructie waarvan het adres op de 
geheugenplaatsen #92 en #93 staat. Na beeindiging bevat 
geheugenplaats #91 de lengte van de instructie (1, 2 of 3 byte) 
en bevat geheugenplaats #90 het aantal karakters dat nodig is am 
de instructue af te drukken. 

Het bepalen van de lengte van de instructie gebeurt door 
subroutine LLI®, die ook zelfstandig aangeroepen kan worden. 
Subroutine LLO maakt gebruik van een stukje data-tabel in de 
monitor-rom (#F1S5 -#FID5) en van een data-tabet in de JOSBOX 
(HA753-#A7BD) . 

Het beste kan men deze laatste data-tabel copieeren naar een 
stukje RAM-geheugen, zodat het programma ook werkt zonder JOSBOX. 
In mijn programma heb ik de tabel gecopieerd naar #AFOU-H4FSD, 
waarvan het begin aangegeven wordt door variable T in regel 10. 
Is de JOSBOX ingeschakeld, dan verplaatst men de tabel als volgt 
COPY #A753,#A7BE, #4FDO 


Heeft men geen JOSBOX, dan volgt hier de tabel: 
4FOO: O4 20 54 30 UD BĲ UA 90 
4FZ8: B3 22 54 33 BD 89 O4 90 
AF1@: BA 20 54 535 ED 88 D4 90 
4F18: 04 20 54 3B OD 88 Da 90 
4F20: OB 22 44 53 DD CB 44 QA 
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4F28: 11 22 44 35 OD CB 44 A9 
4F3@: @1 22 44 33 UD 89 24 98 
AF38: Ol 22 44 55 UD BĲ 04 90 
4F4Ö: 26 31 87 SA B1 22 82 83 
AF48: 31 Bl SA 4E 92 95 87 AB 
4F5@: 86 9E 2C 29 2C 40 28 25 
4FSB: 59 OB 58 25 25 DO 


Zorg er voor om variable T aan te passen indien men voor een 
ander geheugengebied kiest. Gebruikt men dit programma altijd met 
ingeschakelde JOSBOX of AXRI-BOX, dan dus T gelijk maken aan 
#A755. 


Tot slot nog enkele opmerkingen: 
« In mijn programma wordt geassembleert vanaf #4ACOD. Dit kan 
veranderd worden in regel 38 door P een andere waarde te geven. 


hd Het programma kan aanzienlijk ingekort worden als de regels 
40-400 geassembleerd zijn. Men heeft dan alleen nog maar de 
regels 400 (uitgezonderd RTSI;) t/m 59@ nodig. Vul dan voor LLO 
en LLIG (regels 518 en 550) wel de juiste adressen in. 


Ld Wil men aan het eind de printer uitschakelen, dan voor de 
instructie END in regel 498 toevoegen: P.$12; 


* Wil men de printer inschakelen na het invoeren van de 
lay-out gegevens, dan P.$2 in regel 408 verwijderen en toevoegen 
aan regel 480. 


1@ DIM LL25;T=#4FUD;P. 85921 

29 F.9=0T040; LLG=#4CBDEN. ;F.G=DTO1 
30 P=#4C00 

AOL ; :LLOLDAGS; STA#IO; JSRLL1B; TYA 

50 AND@#BF; TAX; TYA; LDY@S; CPX@HBA 

&B BEGLL3; :LL 1 SRA; BECLL 5; LSRA 

7D: LL2LSRA; ORAERZO; DEY; BNELL 2; INY 
88: LLIDEY; BNELL 1; PHA; JSRLL 25; PLA 

9B TAY;LDAHF155,Y; STA#LP;LDARF19S, Y 
108 STA#GA;LDX@I; :LLALDAEB; LDYES 

110: LLSASL#6A; ROL #69; ROLA; DEY; BNELLS 
120 ADCERSF ; JSRHFFF 4; DEX; BNELL 4 

130 JSRLL15; JSRHF7FD; LDX@&; LDY#I 1; DEY 
140: LLGCPX@3; BEOLL 10; : LL7ASL#F ; BCCLLS 
15OLDAT +451 „Xs ISRRFFF 4; JSRLL25 

160 LDAT+#57, X; BEGLLB; JSRAFFF4 

178 JSRLL 25; : LLSDEX; BNELL6; RTS 

180: LLIDEY; BMILL7; JSRHFBB2; JSRLL 24 
198: LLiOLDARF ; CMP@HEB; LDA (#92) ,Y 
208 BECLL9; JSRLL12; TAX; INK; BNELL A1 
21Ö:LLI1TYAs JSRHFBUZ; JSRLL24; TXA 
220 JSR#FSU2; JSRLL 24; :LLI2LDY#IS; TAX 
238 BPLLLI3;DEY; :LL13ADCHF2; BOCLL 14 
24D INYs:LLLARTSs :LL1SCMPEH3F; BEOLL 16 
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258 RTS;:LLi6 JSR#F7FD; LDY@O; LDAEHZS 

ZD JSRHFFFA;LDA(H9Z) ,Y; PHA; JSRRF7FA 

278 JSRLL24; JSRLL 24; PLA; BMILL 17 

282 CMP@#20; BMILL17; TAX; LDA@#22; PHA 

290 IJSRHFFFA; TXA; JSRHFFF 4} PLA 

39B ISRHFFFA; SSRLL24; JSRLL 253; 2 LL 17PLA 
318 PLA;RTS; :LL1BLDX@B; LDA (#92, X) ; TAY 
328 LSRA; BCCLL 19; RORA; BCSLL21 ; CMPEHA2 
3530 BEOLL21; ANDE#B7; :LLIPLSRA; TAX 

540 LDAT,X; BECLL 20; LSRA; LSRA; LSRA 

358 LSRA;:LLZ2B ANDEHF; BNELLZ2 

360:LL21 LDYERSB;LDALD; :LL22TAX 

37D LDAT+#44,X; STAHF; AND@3; STAHOI;RTS 
3BU:LL23 LDA#95; JSRHFBO2; LDAR92 

5IB IMPAFIF Aj LL 24INCHID; 2 LL2SINCHPG 

408 RTS; JiN. ;P.$652 

410 P‚''"4r meerkoloms disassemblers” 
A20 DO IN.“AANTAL REBELS"R;U.R>1A.RC153 
438 DO IN. "AANTAL KOLOMMEN"K;U.K>BA.KC1S 
488 DO IN. "KDLOMBREEDTE"L;U.L>16A.L<B1 
450 DO IN. "KANTLIJN VERSCHUIVEN"V; U. V>-LA, VEZ1 
468 DO IN. “BEBINADRES"B;U.B>DA. B<#10000 
47B DO IN. “EINDADRES"E; U. E>OA, E<65537A.E-B>@ 
488 DINRRK 

49DaRRI=B; IF B>E;END 

SUG '#92=B;F.S=1TOK 

51 F.Q=1TOR;LINKLLIB; 1892-924291 

520 NERRICS+IJK (KEIN =!RIZEN. 

530 P.$12;F.B=1TDR; IF V>B;GDS.c 

54B F.S=1TOK; IF RRS>E; GDS. dj G. b 











558 !#PZERRS;L INKLLD; RREERRS+7R9 1 
568 F‚T=i TOU ;P." VEN. 
5S7BON. 5P.$13;P.$1OjN. ; BERRK;G- a 
588CF. T=1TOV;P." "iN. jR. 


S9BdF. T=1TOLJP," "EN. :R, 
65B END;REM W.FEIJER BOLIVIASTRAAT 24 DELFT 
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12 PROGRAM ACORN BEELD 

28 REM DATA ACORN 

SOB=#9808; E=#9852 

4OB!D=HAÏS13 BI 2=HAGADGB! AZHATATG B! G=HAFAT; B! B=HBBAG 
50B!10=#BBBB;B!12=#22B0;B!14=#1188;B!16=#1111; BI 18=#1111 
&OB! 20=#B8B8; B! 22=#BABA; B! 24=HAAAA; B! 26=#999A; BI 28=#11B9 
70B! 3E=HAP19;B! 32=#B999; B! SA=#BBBB; B! 56=#BEB8; B! 58-#A00B 





110B!78=#BBBB; B! 72=#AABA; B! 74=#BABA; B! 76=#ABBA; B! 78=4#BBBB 
120B!80=#B3BB;B'82=#5204 

13OREM EIKEL 

140B=#9B52; E=#989A 

1508! O=#7000; B! 2=#100; B! GPC; B! 6=#FEDS; BIE=#500 
16BB!10=#FE;B!12=8FF07;B!14=#700; B! 16=AFF;B!18=4FFO7 
1708! 20=#F00; B! 22=#B0FF; B! 24=#FFOF; B! 26=#FB0; B! 20-HBOFF 
180B!38=#FFIF;B!32=#1FCO;B! SACHE! S6HFFIF; B! S8-CD 
190B!48=#0;B!42=#0; B! 44=#1F0D;B! 46=#COFF;B! OSR IF 
208B!50=AFCO; B! 52=#80FF;B!54A=HFFO7 B! 56=#300; B! SB-HFE 
2108! 60=#FC5B; B! 62=#700; B! 64=#30; B! b6=HEGLO; B! G8-#H0 
2208! 7O=#1E;B!72=#AA0D 

238 GRMOD; ?HE1=0;P." * 

240 GOS.b 

250 FOR A=B TO 6; SCROLL RiN. 

268 BASE #3A 

278 CREATE/P:t @,1,2,1,0,1,0,#AA 

280 PAINT 108,100,1 

298 PAINT 255,108,1 

302 BLOCK 0,14,80,70,48 

310 CUBE 1,2,14,80,78,40 

320 CUBE 1,3,15,79,70,40 

338 VTAB 8; HTAB 2 

340 PRINT “COMPUTER” 

558 A=#8942 

360 B-#9852 

370 FOR 1=0 TO 23 

388 FOR J=D TO 2 











598 AP (I#324J) BP (1454) 
400 NEXT J 
418 NEXT 1 


428 MOVE 30,94 

438 DRAW 335,91 

448 MOVE 39,94 

458 SHAPE #9808 

468 CUBE1,8,8,8,255,191 
470 DO U.@ 

480 REM END 

ASA 
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SBORREM 3D EIKEL VAN A.de Bruin uit Acorn User 
510 DIM AA(100),BB(100) ,CC(10B) „DD (180) 








520a 

558 FOR O=8 TO 3 

54B K=0jL=125 

550 IFO=0;X=75;S=175; S= (Z4PI/15) ;R=6; V=43 HES 
560 IFO= 85; S= (24P1/15) ;R=5j V=4j ;H=60 
578 IFO= ze; S=154;3 XS=ljR=2j VER; F=0; HF 

588 IFO=5;X=0;S=14; KSE2EP DD /73 R=5;V=1l;F=0;H=0sL=188 


590 FOR TO R 

60D _B=S-X; GOS. C3 XE XA (H/R) 5 5=B-A (H/R) 

BI® NEXT J 

620 NEXT 0 

632 R. 

648c 

650 (-B.BAEC(K-125) #(X-125)) +19D) 

668 IFO=1j Vl (A/ SOON A((K-125) #(X-125))) +40 

678 1FO=2; 1FJ=1; Y=40 

&BO 1FD=2; IFJ=2; Y=20 

698 IFO=Sj Yak ((-1D/4115)#((L-125) *{L-125)) +19) zL=l-203 5=E-1 
708 T=((B/2) +L) UV; AR=D3 220 

7180 

728 P=4{COSUR*(B/2) +L); @ 
730 MOVE T,U;PLOT 5,P,9; 
740 IF KX2=0; AAZ=P; BBZ=0 

750 IF K42<>0; CCZ=P; DDZ=0 

768 IFK=0;G.r 

778 IFD=1;GOS.n 

780 MOVE AAZ,BBZ;PLOT 5,CCZ,DDZ 

798r 

808 LR=ARHIS; Z=Zt1 

B1® FIF UR (24PI+. 1); G.0 

820 AAZ=AAl;BBZ=BB1; CCZ=CC1; DDZ=DD1; KeK+1 

8350 RETURN 

84gn 

959 IFK%2=0; MOVECCZ,DDZ; PLOTS,AAZ, BBZ; PLOTS,CE(Z+1) „DD (Z+1) 
868 IFKA2< >0; MOVEAAZ, BBZ; PLOTS, ECZ,‚DDZ; PLOTS, AASI BD ED 
870 R. emme 








(SINAR#((B/2) /V) +Y) 
P;U=0 
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Een programma voor ATOMISTEN die zelf vliegtuigmotoren willen 
bouwen. 


18 PROGRAM ROTATIAN FAN 
28 P=#2809 
38 DIM WVi;P.$21 
40 
50 LDA@B; STA#BE; LDACHAG 
&B STA#BI;LDY@S 
70: VV1 LDA(RBO) „Ys; EOREHAA 
88 EOREHFF; STA (#80) ‚Y 
98 INY;BNEVV1; INC#81;LDA#81 
108 CMP@#IB;BNE VVI;RTS; J 
118 505.320 
120 CLEAR 4 
138 C.2;F.2=@ TO 191 
140 MOVE @,2;DRAW 128,2;N. 
150 X=7408;Y=b12;5=450;C=1; N=TRUE 
160 Q=1;D0 
178 N=NOT N 
188 X=X-100; Y=Y-100; 5=S-100 
190 KA=1.25*P1;DO 
208 C=(C+1) 83 
218 XIF N THEN T=2-C 
228 ELSE T=C 
238 Z=T+1; SIDE(X,Y,S, HA, 2) 
248 2=3-T 
256 %2=2.5*PI-%A 
268 SIDE(X,Y,5,42,2) 
27B LA=XA-PI/20; FU. KAS=PI/4-P1/35 
288 G=Q+1; Z=0;U. 224 
298 C=1 
308 DO;LI.#2800;F. 2217090; N. 
318 UNTIL FALSE 
520 PROC SIDE(X,Y,S,%A,C) 
338 LV=SCOSLA; LW=S4SINAA 
348 4D=5/3; COLOUR (C%2) 
358 
360 
378 D=4D; AD=4D/4; MOVE (X/2) ,Y 
SBO AXEktAVG AVE AIG DRAW AX 2) „HY 
398 F.Z=1 TO (AD42) 
4D MOVE (X/2) „Vz DRAW AX /2) „AV 
418 AX=4X+0. 5; LY=4Y+0.5 















420 N. 

438 X=E; Y=F 

AAD AV=LE; AW=UF 

450 XD=D 

460 PEND;R. 

ATOALKE KHAN VEV AN 
488 F.Z=1 TO XD 


498 MOVE (X/2) ‚Ys DRAW (4X/2) „KY 
SOB AX=4Xt1j AVL 
510 N.sR. 
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Onderstaand een programma van Bernard Rutgrink om verschillende 
formaten letters te ‘schrijven’ in de gratische mode. 


10 ?#23=0; *#24=#3B 

28 DIM vv1G 

30 F.Z=1T010; VVZ=-tjN. 
48 F.2=1T02 

59 P=#2870;P. $215L 

68: VVE LDA#S0; STAHEB 


7Ö CLC; LDA#80; ADC#82 
Er) STA#90 

FO: VVI LDA#E; STAAT 

108 CLC; LDA#81 

112 ADC#835; STA#S1 

120: VVZ LDAEB; STARSB; STA4SD 
130 LDA@1; STA#SE 

140 LDA#8C; STA#SA 

158 LDA#BB; STA#SC 

168 LDA#BOOD; CMPERFO 
170 BNE VV6; JSR #F7AA 
182 JMP VVT; 1 VV6 CMPEHDD 
190 BNE VV7; JSR #DFAD 
288: VV7 INCHSC;LDA#SE 

218 CMP#91; BNE VV2 

228 INC#6B; LDA#8B 

232 CMP#2D; BNE VV1 

240 RTS 


258: VVS LDKXEE3STXH7Z 
260: VV4 LDA#2860, X 


272 STA#90; L.DA#B4 

283 AND#90; BEG VVS 
290 JSR VVB 

38B: VVS INCH7O;LDX#70 

318 SEC; LDA#B1 ; SBCHB2 
320 STA#81 

3530 CPX@8; BNE VVA; RTS 


Z4AIjN.;P.S6 

550 !'#2060=#08940201 

360 1#2864=#0B492010; G. 470 
37ObB=HAEED; DO 

380 E€-B;F.C=1 TO 7;F=Y 

398 BP(E+?A) 

400 F=F-(E/S2%W) 

418 P#BL=X; ?H0E=F; PRBZEU 

428 7HB3=Vs PHB4=Dj LINK VVS 
430 E=E+96GE=ER2Z2AjN. 

448 Asti Keke 

450 IF?A=32;G. 440 

368 U. PA=13;R. 

478 CLEAR4; ROMB; RESTORE 

488 A=#2800; READ $A,X,Y,V‚W,C 
490 IFX=D; IFY=G;PAU. 200;6.710 
SBB C.C;GOS. Db 

Stg G.480 

528 DA. "ACORN" 

530 DA. 16,180,3,2,1 
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kZÂ 





548 
558 
540 
570 
580 
590 
622 
&18 
623 
638 
648 
650 
668 
670 
&B@ 
6,0 
700 
718 


DA. "ACORN" 

DA. 17,181,3,2,2 
DA. "COMPUTER" 

DA. 30,132,1,5,2 
DA. "COMPUTER" 
DA.31,131,1,51 
DA, “THIS PROGRAM” 
DA. 15,90,1,2,1 
DA. "IS MADE BY” 
DA. 20,78,1,1,2 
DA. “BERNARD” 

DA. 15,58,2,3,2 
DA. "BERNARD" 

DA. 16,51,2,3,1 
DA. "RUTGRINK" 

DA. 38,28,1,1,2 
DA.*",B,0,0,4,2 
F.Z2=1T024;3 SCROLL L;SCROLL U;SCROLL U;N. 56.470 


Een programma voor AXRI of JOSBOX bezitters. 


ON ERR RUN; // POPCORN \\ 
REM (C) HAMBURGERSOFT 
DATA 6,5 
DATA 6,7 
DATA 6,5 
DATA 6,7 
DATA 10,9,10,8 : 
DATA 10,13,12,13,12,10,13,18, 
DA. 18,9,10,8,5,8,3,0,10,9,10, 
DATA 18,13,12,13,12,19,13, 10, 
RESTORE 

DO; READ A 

GOS. ((A*10) +149) ;U.B 

PL. RB;R. 

PL.CB;R. 

PL. D&;R. 

PL. E8;R. 

PL.FS;R. 

PL. G8;R. 

PL.A'BiR. 

PL.B'8;R. 

PL.C'B;R. . 
PL.D'8;R. 

PL.E'8;R. 

PL.F'BjR. 

PL.G'B;R. 

PL.F'#8jR. 
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6502 Second Processor voor de ATOM 





Multiprocessor — ontwerpen zijn niet nieuw in de computerwereld 
onder de business- en ontwikkelings-computers. Zelfd de Sinclair 
OL heeft twee microprocessors, een voor de 1/0 en de andere voor 
het rekenwerk, Als voordeel van een twee-microprocessor- ontwerp 
geldt dat, doordat een gedeelte van de processor-reken- tijd (het 
1/0 gebeuren) wordt overgenomen door de tweede processor, veel 
sneller kan worden gerekend. 

Tevens kan de kloksnelheid worden ver hoogd voor de tweede 
processor. Doordat men bij de tweede processor niet te maken 
heeft met een specifieke indeling van het geheugen (memory mapped 
VDU bijvoorbeeld) is het tevens mogelijk om voor andere 6502 
systemen geschikte talen/toepassingen te draaien (bijv. BBC 
basic). Voorwaarde hiervoor is echter dat een 
communicatie-systeem wordt geschreven dat de twee processors 
verbindt, 

We zijn bij de tweede microprocessor niet gebonden aan de 6502, 
maar doordat we met onze Atom nu eenmaal de mnemonics van de 6502 
kennen is de software eenvoudiger te schrijven. 


Het doel van dit schrijven is de belangstelling te polsen voor 
een 6582 second-processor-kaart voor de Atom. 


Een prototype is reeds getest en werkt volledig naar behoren. Als 
de belangstelling voldoende blijkt te zijn zal er mogelijk een 
Clubkaart van gemaakt worden (dubbelzijdig doorgemetatiseerd). De 
bedoeling is dat de software in staat zal zijn om zowel BBC als 
ATOM basic volledig transparant te laten werken (u merkt dus niet 
dat u in de tweede processor zit). 

De kloksnelheid is 2 MHz, zodat de tweede processor-kaart 
tweemaal zo snel draait als de Atom. Er is 64 kByte ram aan boord 
waarvan ca. 4 kByte zal worden afgesnoept door het operating 
systeem, zodat u 65 KByte als werkgeheugen tot uw beschikking 
hebt. De totale kosten zullen ongeveer fl. 200,00 bedragen, 
inclusief print, ram, connector en IC-voetjes. 

Indien u hiervoor in principe belangstelling heeft kunt u een 
briefkaart opsturen naar onderstaand adres. 

Vermeldt u dan duidelijk erbij ot u aan een bouwpakket voldoende 
heeft of dat u liever een gebouwd en getest geheel zou willen 
ontvangen. 

Als u met meerderen geinteresseerd bent vermeldt u dan tevens het 
aantal belangstellenden. 


B, Kasteel, 

Reakties naar: Redaktie Atom Nieuws 
Postbus 1373 
8021 BJ Zwolle 


Onder vermelding van "Zde processor", 


SQUARE 


ATOM NIEUWS PAG, 77 





Dit korte recursieve programma voor P-CHARME maakt een leuk 


plaatje, 


10 
zo 
zo 
40 
50 
sn 
70 
80 
Sa 
100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 


FROGRAM SQUARE 


PROC SQUARE (A,B,E) ,D‚E,F‚G 





MOVE D‚F 
DRAW D,G;DRAW E‚G 
DRAW E‚F;DRAW D‚F 
SQUARE (D,F‚C/2) 
SQUARE (D,G,C/2) 
SQUARE (E,G,C/2) 
SQUARE (E,F‚C/2) 


ELSE 
PEND 









Do 
INPUT "RADIUS" R 
UNTIL OSR AND R{=50 


CLEAR4 
SQUARE (128,96 ,R) 
END 


Yee? 1 still got the ol” sex appeal goin’ for met 
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Wilt u lid worden van de ATOM COMPUTER CLUB, 


Neem dan contact op met de penningmeester van de regio waar u bij ingedeeld wilt 
worden. Hij kan u vertellen, waar de regiobijeenkomsten zijn en wat u als lid 
kunt verwachten. 


Regio NOORD: 
D., Uuldriks Wiemers 14 9642 KG Veendam 05987-19611 


Regio OVERIJSSEL /GELDERLAND: 
G.J. Noorland Pr. Ireneweg 4 74535 DE Schalkhaar 05708-25294 


Regio TWENTE: 
W. Verhoeven Witbreuksweg 577-405 7522 ZA Enschede 853 357026 


Regio NOORD-HOLLAND: - 
P. van Kuik Zuideinde 54-a 1845 JP Groot-Schermer 02997-19082 


Regio DEN HAAG: 
R, Tiel Vredecord 96 2544 TZ Den Haag 078 -294170 


Regio DELFT: 
P. van Alphen H. v. Delftlaan 58 2613 EN Delft Bij -122817 


Regio ROTTERDAM: 
R. de Haan Brasem 125 2986 HA Ridderkerk 81884-25168 


Regio CENTRUM: 
P. van Mourik Ruiterstede 60 3431 XN Nieuwegein 05402-48781 


Regio ARNHEM: 
J. Hartog Keynenbergseweg 69 6871 Wk Renkum 88273-15757 


Regio ZEELAND: 
E‚ Gijssel Dorpsstraat 86 4424 CZ Wemeldinge 81192-19806 


Regio BRABANT-ODST: 
P. Ehrlich Roostenlaan 266 5644 B5 Eindhoven 048 -114183 


Regio LIMBURG: 
A. v. Zandvoort Mozartstraat 328 6844 RS Roermond 04750-21797 


Regio BELGIE: 
R. Leyssens Oude Baan 127 5550 Heusden Belgie 


Eventueel kunt u de contributie rechtstreeks overmaken per bank of giro aan de 
Atom Computer Club te Nuenen. Vermeld echter uw volledige naam, adres en de 
REGI9 waarbij u ingedeeld wilt worden. 


